Author: adam-guest
Date: 2008-03-18 00:49:37 +0000 (Tue, 18 Mar 2008)
New Revision: 1167
Modified:
trunk/scripts/checkbashisms.pl
Log:
Add more comments to the de-commenting
Modified: trunk/scripts/checkbashisms.pl
===================================================================
--- trunk/scripts/checkbashisms.pl 2008-03-17 23:03:06 UTC (rev 1166)
+++ trunk/scripts/checkbashisms.pl 2008-03-18 00:49:37 UTC (rev 1167)
@@ -113,6 +113,10 @@
s/^(?:.*?[^\\])?$quote_string(.*)$/$1/ if $quote_string ne "";
s/(^|[^\\](?:\\\\)*)\'(?:\\.|[^\\\'])+\'/$1''/g;
s/(^|[^\\](?:\\\\)*)\"(?:\\.|[^\\\"])+\"/$1""/g;
+
+ # If the remaining string contains what looks like a comment,
+ # eat it. In either case, swap the unmodified script line
+ # back in for processing.
if (m/(?<!\\)(\#.*$)/) {
$_ = $orig_line;
$_ =~ s/\Q$1\E//; # eat comments
--
To unsubscribe, send mail to [EMAIL PROTECTED]
