diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-06 22:57:36 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-06 22:57:36 +0000 |
| commit | 9c26d2a7767e50e8a8023c6a6db9c0199fbb2839 (patch) | |
| tree | a671cc105d4bfe76a481a6f6b2025a689b899205 /MDK | |
| parent | 23ed1f900cac19c4d9152c1f82d616111d9f9104 (diff) | |
| download | perl-MDK-Common-9c26d2a7767e50e8a8023c6a6db9c0199fbb2839.tar perl-MDK-Common-9c26d2a7767e50e8a8023c6a6db9c0199fbb2839.tar.gz perl-MDK-Common-9c26d2a7767e50e8a8023c6a6db9c0199fbb2839.tar.bz2 perl-MDK-Common-9c26d2a7767e50e8a8023c6a6db9c0199fbb2839.tar.xz perl-MDK-Common-9c26d2a7767e50e8a8023c6a6db9c0199fbb2839.zip | |
make perl_checker happy
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common/File.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/MDK/Common/File.pm b/MDK/Common/File.pm index a2f9cf1..d3a4fd3 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -163,11 +163,9 @@ sub cp_af { warn "symlink: can't create symlink $dest: $!\n"; } } else { - local (*F, *G); - open F, $src or die "can't open $src for reading: $!\n"; - open G, "> $dest"; - local $_; - while (<F>) { print G $_ } + local *F; open F, $src or die "can't open $src for reading: $!\n"; + local *G; open G, "> $dest"; + local $_; while (<F>) { print G $_ } chmod((stat($src))[2], $dest); } } @@ -210,7 +208,8 @@ sub substInFile(&@) { my ($f, $file) = @_; if (-s $file) { local @ARGV = $file; - local ($^I, $_) = ''; + local $^I = ''; + local $_; while (<>) { $_ .= "\n" if eof && !/\n/; &$f($_); |