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

installer::download: Enable strict and warnings.

Change-Id: I4499968f00e313187ef7792954f3168bfadb2f6e
üst 42c35f0d
...@@ -27,6 +27,9 @@ ...@@ -27,6 +27,9 @@
package installer::download; package installer::download;
use strict;
use warnings;
use File::Spec; use File::Spec;
use installer::exiter; use installer::exiter;
use installer::files; use installer::files;
...@@ -644,7 +647,7 @@ sub create_tar_gz_file_from_directory ...@@ -644,7 +647,7 @@ sub create_tar_gz_file_from_directory
$installer::globals::downloadfilename = $downloadfilename . $installer::globals::downloadfileextension; $installer::globals::downloadfilename = $downloadfilename . $installer::globals::downloadfileextension;
my $targzname = $downloaddir . $installer::globals::separator . $installer::globals::downloadfilename; 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); my $returnvalue = system($systemcall);
...@@ -679,7 +682,7 @@ sub resolve_variables_in_downloadname ...@@ -679,7 +682,7 @@ sub resolve_variables_in_downloadname
if ( $allvariables->{'PRODUCTVERSION'} ) { $productversion = $allvariables->{'PRODUCTVERSION'}; } if ( $allvariables->{'PRODUCTVERSION'} ) { $productversion = $allvariables->{'PRODUCTVERSION'}; }
$downloadname =~ s/\{productversion\}/$productversion/; $downloadname =~ s/\{productversion\}/$productversion/;
my $ppackageversion = ""; my $packageversion = "";
if ( $allvariables->{'PACKAGEVERSION'} ) { $packageversion = $allvariables->{'PACKAGEVERSION'}; } if ( $allvariables->{'PACKAGEVERSION'} ) { $packageversion = $allvariables->{'PACKAGEVERSION'}; }
$downloadname =~ s/\{packageversion\}/$packageversion/; $downloadname =~ s/\{packageversion\}/$packageversion/;
......
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