diff options
| author | Tim Retout <tim@retout.co.uk> | 2012-08-14 20:16:17 +0100 |
|---|---|---|
| committer | Tim Retout <tim@retout.co.uk> | 2012-08-14 22:14:37 +0100 |
| commit | 9b69ef1013d60e655eb4545d1a2af1e2fae8e695 (patch) | |
| tree | 78002096206d107be133545a0ad3b18068d90a43 /solenv | |
| parent | 42c35f0d5bea1eafdbc02b92febaed1dcb2ab332 (diff) | |
installer::download: Enable strict and warnings.
Change-Id: I4499968f00e313187ef7792954f3168bfadb2f6e
Diffstat (limited to 'solenv')
| -rw-r--r-- | solenv/bin/modules/installer/download.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/solenv/bin/modules/installer/download.pm b/solenv/bin/modules/installer/download.pm index b21bbe3a2489..7310bdee429b 100644 --- a/solenv/bin/modules/installer/download.pm +++ b/solenv/bin/modules/installer/download.pm @@ -27,6 +27,9 @@ package installer::download; +use strict; +use warnings; + use File::Spec; use installer::exiter; use installer::files; @@ -644,7 +647,7 @@ sub create_tar_gz_file_from_directory $installer::globals::downloadfilename = $downloadfilename . $installer::globals::downloadfileextension; my $targzname = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename; - $systemcall = "cd $changedir; $ldpreloadstring tar -cf - $packdir | gzip > $targzname"; + my $systemcall = "cd $changedir; $ldpreloadstring tar -cf - $packdir | gzip > $targzname"; my $returnvalue = system($systemcall); @@ -679,7 +682,7 @@ sub resolve_variables_in_downloadname if ( $allvariables->{'PRODUCTVERSION'} ) { $productversion = $allvariables->{'PRODUCTVERSION'}; } $downloadname =~ s/\{productversion\}/$productversion/; - my $ppackageversion = ""; + my $packageversion = ""; if ( $allvariables->{'PACKAGEVERSION'} ) { $packageversion = $allvariables->{'PACKAGEVERSION'}; } $downloadname =~ s/\{packageversion\}/$packageversion/; |