Bug 380859, fix perl warning, r=rhelmer
authornrthomas@gmail.com
Wed, 16 May 2007 13:59:43 -0700
changeset 1538 e9dbe5213117a1d59e84c4fd95bfaf5be5ed3077
parent 1537 b40e0e2735aa7a50ab35fd29a795ea92546b4f3a
child 1539 99dd842c007c386f18d6e958526b8768f8adf8e7
push id1
push userroot
push dateTue, 26 Apr 2011 22:38:44 +0000
treeherdermozilla-beta@bfdb6e623a36 [default view] [failures only]
perfherder[talos] [build metrics] [platform microbench] (compared to previous push)
reviewersrhelmer
bugs380859
milestone1.9a5pre
Bug 380859, fix perl warning, r=rhelmer
tools/update-packaging/unwrap_full_update.pl
--- a/tools/update-packaging/unwrap_full_update.pl
+++ b/tools/update-packaging/unwrap_full_update.pl
@@ -28,19 +28,20 @@ else {
 sub print_usage
 {
     print "Usage: unwrap_full_update.pl [OPTIONS] ARCHIVE\n\n";
     print "The contents of ARCHIVE will be unpacked into the current directory.\n\n";
     print "Options:\n";
     print "  -h show this help text\n";
 }
 
-getopts("h");
+my %opts;
+getopts("h", \%opts);
 
-if (defined($::opt_h) || scalar(@ARGV) != 1) {
+if (defined($opts{'h'}) || scalar(@ARGV) != 1) {
     print_usage();
     exit 1;
 }
 
 $archive = $ARGV[0];
 @marentries = `"$MAR" -t "$archive"`;
 
 $? && die("Couldn't run \"$MAR\" -t");