diff options
| author | Tim Retout <tim.retout@smoothwall.net> | 2012-03-14 22:17:27 +0000 |
|---|---|---|
| committer | Tim Retout <tim.retout@smoothwall.net> | 2012-03-14 22:17:27 +0000 |
| commit | d3374e77c3df1f928fe90c4c3803938f08a250b2 (patch) | |
| tree | da7c76484829ac96eb0cc6ae16f5cb70f76155ea /solenv | |
| parent | 712e7b813825ec9fb1d0c1fcdbfcea2f44274e69 (diff) | |
Turn on strictures and warnings in installer::helppack.
Diffstat (limited to 'solenv')
| -rw-r--r-- | solenv/bin/modules/installer/helppack.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/solenv/bin/modules/installer/helppack.pm b/solenv/bin/modules/installer/helppack.pm index 977b0bad867c..a6a9627c64f6 100644 --- a/solenv/bin/modules/installer/helppack.pm +++ b/solenv/bin/modules/installer/helppack.pm @@ -27,6 +27,9 @@ package installer::helppack; +use strict; +use warnings; + use installer::converter; use installer::files; use installer::globals; @@ -136,7 +139,7 @@ sub create_tar_gz_file $packagename =~ s/\.rpm\s*$//; my $targzname = $packagename . ".tar.gz"; - $systemcall = "cd $installdir; tar -cf - $packagestring | gzip > $targzname"; + my $systemcall = "cd $installdir; tar -cf - $packagestring | gzip > $targzname"; installer::logger::print_message( "... $systemcall ...\n" ); my $returnvalue = system($systemcall); |