Kaydet (Commit) dda1f40a authored tarafından Tim Retout's avatar Tim Retout Kaydeden (comit) Michael Meeks

Turn on strictures for some installer Perl modules.

üst 1893585d
...@@ -27,6 +27,9 @@ ...@@ -27,6 +27,9 @@
package installer::copyproject; package installer::copyproject;
use strict;
use warnings;
use installer::control; use installer::control;
use installer::converter; use installer::converter;
use installer::files; use installer::files;
......
...@@ -27,6 +27,9 @@ ...@@ -27,6 +27,9 @@
package installer::exiter; package installer::exiter;
use strict;
use warnings;
use installer::files; use installer::files;
use installer::globals; use installer::globals;
use installer::logger; use installer::logger;
......
...@@ -27,6 +27,9 @@ ...@@ -27,6 +27,9 @@
package installer::files; package installer::files;
use strict;
use warnings;
use installer::exiter; use installer::exiter;
use installer::logger; use installer::logger;
...@@ -58,7 +61,7 @@ sub read_file ...@@ -58,7 +61,7 @@ sub read_file
# Don't use "my @localfile = <IN>" here, because # Don't use "my @localfile = <IN>" here, because
# perl has a problem with the internal "large_and_huge_malloc" function # 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 # 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; push @localfile, $line;
} }
......
...@@ -27,6 +27,9 @@ ...@@ -27,6 +27,9 @@
package installer::logger; package installer::logger;
use strict;
use warnings;
use installer::files; use installer::files;
use installer::globals; use installer::globals;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment