diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-04-28 11:25:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-04-28 11:25:26 +0000 |
| commit | 11a4d7c3b70b617bdce862eb466306d9673e66e7 (patch) | |
| tree | 813c10472765c23ae9b109e763101e72da4ac4d7 /MDK/Common/System.pm | |
| parent | 26ebc5ad59c9044e10fa55ebf57f1aa245738e92 (diff) | |
| download | perl-MDK-Common-11a4d7c3b70b617bdce862eb466306d9673e66e7.tar perl-MDK-Common-11a4d7c3b70b617bdce862eb466306d9673e66e7.tar.gz perl-MDK-Common-11a4d7c3b70b617bdce862eb466306d9673e66e7.tar.bz2 perl-MDK-Common-11a4d7c3b70b617bdce862eb466306d9673e66e7.tar.xz perl-MDK-Common-11a4d7c3b70b617bdce862eb466306d9673e66e7.zip | |
- deprecate "open F, ..." prefering "open(my $F, ...)"
- fix an internal_error
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 |