Author: adam-guest
Date: 2008-03-25 18:55:13 +0000 (Tue, 25 Mar 2008)
New Revision: 1202
Modified:
trunk/debian/changelog
trunk/scripts/checkbashisms.pl
Log:
checkbashisms:
+ Strip off the quoted portion of a line that ends a "quoted block" before
deciding whether it's a comment line and skipping it
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2008-03-24 22:15:53 UTC (rev 1201)
+++ trunk/debian/changelog 2008-03-25 18:55:13 UTC (rev 1202)
@@ -1,3 +1,11 @@
+devscripts (2.10.21) UNRELEASED; urgency=low
+
+ * checkbashisms:
+ + Strip off the quoted portion of a line that ends a "quoted block" before
+ deciding whether it's a comment line and skipping it
+
+ -- Adam D. Barratt <[EMAIL PROTECTED]> Tue, 25 Mar 2008 18:51:59 +0000
+
devscripts (2.10.20) unstable; urgency=low
* bts:
Modified: trunk/scripts/checkbashisms.pl
===================================================================
--- trunk/scripts/checkbashisms.pl 2008-03-24 22:15:53 UTC (rev 1201)
+++ trunk/scripts/checkbashisms.pl 2008-03-25 18:55:13 UTC (rev 1202)
@@ -102,7 +102,6 @@
}
}
- next if m,^\s*\#,; # skip comment lines
chomp;
my $orig_line = $_;
@@ -111,6 +110,9 @@
# in a quoted block or that appear inside balanced pairs
# of single or double quotes
s/^(?:.*?[^\\])?$quote_string(.*)$/$1/ if $quote_string ne "";
+
+ next if m,^\s*\#,; # skip comment lines
+
s/(^|[^\\](?:\\\\)*)\'(?:\\.|[^\\\'])+\'/$1''/g;
s/(^|[^\\](?:\\\\)*)\"(?:\\.|[^\\\"])+\"/$1""/g;
--
To unsubscribe, send mail to [EMAIL PROTECTED]
