diff options
author | Tim Retout <tim@retout.co.uk> | 2012-02-14 22:19:46 +0000 |
---|---|---|
committer | Michael Meeks <michael.meeks@suse.com> | 2012-02-15 15:14:39 +0000 |
commit | dda1f40a64506ba66772ac7b6c9d58d7775db656 (patch) | |
tree | ebe06faf4f6d60815bcd92907317971fe8d96533 /solenv/bin/modules/installer/files.pm | |
parent | 1893585d243c7daf5c8782ec6c90c26142d428e8 (diff) |
Turn on strictures for some installer Perl modules.
Diffstat (limited to 'solenv/bin/modules/installer/files.pm')
-rw-r--r-- | solenv/bin/modules/installer/files.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/solenv/bin/modules/installer/files.pm b/solenv/bin/modules/installer/files.pm index 73ea26738b05..379144ebc916 100644 --- a/solenv/bin/modules/installer/files.pm +++ b/solenv/bin/modules/installer/files.pm @@ -27,6 +27,9 @@ package installer::files; +use strict; +use warnings; + use installer::exiter; use installer::logger; @@ -58,7 +61,7 @@ sub read_file # Don't use "my @localfile = <IN>" here, because # perl has a problem with the internal "large_and_huge_malloc" function # when calling perl using MacOS 10.5 with a perl built with MacOS 10.4 - while ( $line = <IN> ) { + while ( my $line = <IN> ) { push @localfile, $line; } |