Kaydet (Commit) d3374e77 authored tarafından Tim Retout's avatar Tim Retout

Turn on strictures and warnings in installer::helppack.

üst 712e7b81
...@@ -27,6 +27,9 @@ ...@@ -27,6 +27,9 @@
package installer::helppack; package installer::helppack;
use strict;
use warnings;
use installer::converter; use installer::converter;
use installer::files; use installer::files;
use installer::globals; use installer::globals;
...@@ -136,7 +139,7 @@ sub create_tar_gz_file ...@@ -136,7 +139,7 @@ sub create_tar_gz_file
$packagename =~ s/\.rpm\s*$//; $packagename =~ s/\.rpm\s*$//;
my $targzname = $packagename . ".tar.gz"; 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" ); installer::logger::print_message( "... $systemcall ...\n" );
my $returnvalue = system($systemcall); my $returnvalue = system($systemcall);
......
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