lintian: r1296 - in trunk: debian frontend

[rra@debian.org]

Author: rra
Date: 2008-05-04 21:14:09 +0200 (Sun, 04 May 2008)
New Revision: 1296

Modified:
   trunk/debian/changelog
   trunk/frontend/lintian
Log:
* frontend/lintian:
  + [RA] Work around a Perl 5.10 bug with Getopt::Long and sub handlers.

Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2008-05-04 18:18:18 UTC (rev 1295)
+++ trunk/debian/changelog	2008-05-04 19:14:09 UTC (rev 1296)
@@ -12,6 +12,9 @@
     + [FL] Also apply the "not-binnmuable-*" checks to Pre-Depends.
       (Closes: #472247)
 
+  * frontend/lintian:
+    + [RA] Work around a Perl 5.10 bug with Getopt::Long and sub handlers.
+
  -- Frank Lichtenheld <djpig@debian.org>  Thu, 01 May 2008 22:13:07 +0200
 
 lintian (1.23.47) unstable; urgency=low

Modified: trunk/frontend/lintian
===================================================================
--- trunk/frontend/lintian	2008-05-04 18:18:18 UTC (rev 1295)
+++ trunk/frontend/lintian	2008-05-04 19:14:09 UTC (rev 1296)
@@ -182,7 +182,7 @@
     if ($action) {
 	die("too many actions specified: $_[0]");
     }
-    $action = $_[0];
+    $action = "$_[0]";
 }
 
 # Record Parts requested for checking
@@ -198,7 +198,7 @@
 	die("too many actions specified: $_[0]");
     }
     $action = 'check';
-    $checks = $_[1];
+    $checks = "$_[1]";
 }
 
 # Record Parts requested not to check
@@ -214,7 +214,7 @@
 	die("too many actions specified: $_[0]");
     }
     $action = 'check';
-    $dont_check = $_[1];
+    $dont_check = "$_[1]";
 }
 
 
@@ -223,7 +223,7 @@
     if ($unpack_info) {
 	die("multiple -U or --unpack-info options not allowed");
     }
-    $unpack_info = $_[1];
+    $unpack_info = "$_[1]";
 }
 
 # Record what type of data is specified
@@ -330,7 +330,7 @@
 }
 
 # check specified action
-$action = 'check' if not $action;
+$action = 'check' unless $action;
 
 # check for arguments
 if ($action =~ /^(check|unpack|remove)$/ and $#ARGV == -1 and not $check_everything and not $packages_file) {