TT#21878 disable autodie for 'open' to check for missing license

Change-Id: I6cb3499c8752b7f8936732b8dfc0cb6db8802677
changes/29/15329/1
Richard Fuchs 8 years ago
parent 0956362be1
commit c6db685708

@ -8,8 +8,11 @@ sub get_license_status {
my ($ref) = @_;
my $fd;
if (!open($fd, '<', '/proc/ngcp/check')) {
return 'missing';
{
no autodie qw(open);
if (!open($fd, '<', '/proc/ngcp/check')) {
return 'missing';
}
}
my $status = <$fd>;
close($fd);

Loading…
Cancel
Save