summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
authoraxis <qt-info@nokia.com>2010-02-19 12:55:42 (GMT)
committeraxis <qt-info@nokia.com>2010-02-19 12:55:42 (GMT)
commit9d818ceb4765474c22d624ee5bdb11019f15a23f (patch)
treefa731056a98f774a65f451e41550d2774fddd756 /bin
parent78ef8aadd693151b309dea320dc693707880331d (diff)
downloadQt-9d818ceb4765474c22d624ee5bdb11019f15a23f.zip
Qt-9d818ceb4765474c22d624ee5bdb11019f15a23f.tar.gz
Qt-9d818ceb4765474c22d624ee5bdb11019f15a23f.tar.bz2
Got rid of some warnings when using "perl -w".
Diffstat (limited to 'bin')
-rwxr-xr-xbin/createpackage.pl15
1 files changed, 10 insertions, 5 deletions
diff --git a/bin/createpackage.pl b/bin/createpackage.pl
index e4c714e..10f4b40 100755
--- a/bin/createpackage.pl
+++ b/bin/createpackage.pl
@@ -130,16 +130,21 @@ my $templatepkg = $ARGV[0];
my $targetplatform = lc $ARGV[1];
my @tmpvalues = split('-', $targetplatform);
-my $target = $tmpvalues[0];
-my $platform = $tmpvalues[1];;
+my $target;
+$target = $tmpvalues[0] or $target = "";
+my $platform;
+$platform = $tmpvalues[1] or $platform = "";
# Convert visual target to real target (debug->udeb and release->urel)
$target =~ s/debug/udeb/i;
$target =~ s/release/urel/i;
-my $certificate = $ARGV[2];
-my $key = $ARGV[3];
-my $passphrase = $ARGV[4];
+my $certificate;
+$certificate = $ARGV[2] or $certificate = "";
+my $key;
+$key = $ARGV[3] or $key = "";
+my $passphrase;
+$passphrase = $ARGV[4] or $passphrase = "";
# Generate output pkg basename (i.e. file name without extension)
my $pkgoutputbasename = $templatepkg;