lintian: r449 - in trunk: checks debian testset/scripts

[djpig@debian.org]

Author: djpig
Date: 2005-07-23 15:01:56 +0200 (Sat, 23 Jul 2005)
New Revision: 449

Modified:
   trunk/checks/scripts
   trunk/debian/changelog
   trunk/testset/scripts/tkfoo
Log:
increase search limit for exec hack by not counting comments
and empty lines (Closes: #294661)


Modified: trunk/checks/scripts
===================================================================
--- trunk/checks/scripts	2005-07-23 12:21:36 UTC (rev 448)
+++ trunk/checks/scripts	2005-07-23 13:01:56 UTC (rev 449)
@@ -546,9 +546,11 @@
     open IN, $filename or fail("cannot open $filename: $!");
     my $i = 0;
     while (<IN>) {
+        chomp;
+	next if /^#/o;
+	next if /^$/o;
         last if (++$i > 20);
-        chomp;
-        if (/^\s*exec\s*.+\s*.?\$0.?\s*(--\s*)?(\${1\+)?.?\$\@/) {
+        if (/^\s*exec\s*.+\s*.?\$0.?\s*(--\s*)?(\${1\+)?.?\$\@/o) {
             $ret = 1;
             last;
         }

Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2005-07-23 12:21:36 UTC (rev 448)
+++ trunk/debian/changelog	2005-07-23 13:01:56 UTC (rev 449)
@@ -17,6 +17,9 @@
       just on zero-length lines. (Closes: #319370)
   * checks/fields:
     + [FL] Actually mention which architecture we're complaining about
+  * checks/scripts:
+    + [FL] increase search limit for exec hack by not counting comments
+      and empty lines (Closes: #294661)
 
  -- Frank Lichtenheld <djpig@debian.org>  Mon, 11 Jul 2005 15:50:10 +0300
 

Modified: trunk/testset/scripts/tkfoo
===================================================================
--- trunk/testset/scripts/tkfoo	2005-07-23 12:21:36 UTC (rev 448)
+++ trunk/testset/scripts/tkfoo	2005-07-23 13:01:56 UTC (rev 449)
@@ -1,4 +1,23 @@
 #!/bin/sh
+#
+# Insane amount of empty lines and comments
+
+#
+#                                          
+#
+#
+
+#
+#
+
+#
+#
+#
+
+#
+#
+   
+#
 # This line makes the next one a comment in Tcl \
 exec wish "$0" -- ${1+"$@"}