From 9b69ef1013d60e655eb4545d1a2af1e2fae8e695 Mon Sep 17 00:00:00 2001
From: Tim Retout <tim@retout.co.uk>
Date: Tue, 14 Aug 2012 20:16:17 +0100
Subject: installer::download: Enable strict and warnings.

Change-Id: I4499968f00e313187ef7792954f3168bfadb2f6e
---
 solenv/bin/modules/installer/download.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'solenv')

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/;
 
-- 
cgit