diff options
Diffstat (limited to 'MDK/Common/System.pm')
| -rw-r--r-- | MDK/Common/System.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index e4f5476..a864968 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -303,9 +303,9 @@ sub whereis_binary { sub getVarsFromSh { my %l; - local *F; open F, $_[0] or return; + open(my $F, $_[0]) or return; local $_; - while (<F>) { + while (<$F>) { s/#.*//; # remove comments my ($v, $val, $val2) = /^\s* # leading space |