Author: djpig
Date: 2008-06-19 01:35:57 +0200 (Thu, 19 Jun 2008)
New Revision: 1395
Modified:
trunk/checks/scripts
Log:
Yeah, I managed to break the fix. Serves me right for not
running the test suite.
Modified: trunk/checks/scripts
===================================================================
--- trunk/checks/scripts 2008-06-18 22:59:51 UTC (rev 1394)
+++ trunk/checks/scripts 2008-06-18 23:35:57 UTC (rev 1395)
@@ -610,7 +610,7 @@
# can match "foo <<-?'xyz'" as a heredoc later
# The check is a little more greedy than we'd like, but the
# heredoc test itself will weed out any false positives
- $cat_line =~
s/(^|[^<\\\"-](?:\\\\)*)\'(?:\\.|[^\\\'])+\'"/$1''/g;
+ $cat_line =~
s/(^|[^<\\\"-](?:\\\\)*)\'(?:\\.|[^\\\'])+\'/$1''/g;
unless ($found) {
# Remove "quoted quotes". They're likely to be inside
@@ -620,7 +620,7 @@
$line =~ s/(^|[^\\\'\"])\"\'\"/$1/g;
$line =~ s/(^|[^\\\'\"])\'\"\'/$1/g;
- $line =~ s/(^|[^\\\"](?:\\\\)*)\'(?:\\.|[^\\\'])+\'"/$1''/g;
+ $line =~ s/(^|[^\\\"](?:\\\\)*)\'(?:\\.|[^\\\'])+\'/$1''/g;
for my $re (@bashism_string_regexs) {
if ($line =~ m/($re)/) {
$found = 1;
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
