Does the quote escaping really work in this function? It confuses emacs
font-lock mode which doesn't see a closing quote so thinks the rest of
the file is part of the string. This fixes at least the latter:
Index: TestConfig.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
retrieving revision 1.239
diff -u -r1.239 TestConfig.pm
--- TestConfig.pm 15 Aug 2004 23:19:57 -0000 1.239
+++ TestConfig.pm 18 Aug 2004 08:55:29 -0000
@@ -1754,7 +1754,7 @@
# escape quotes)
sub shell_ready {
my $arg = shift;
- $arg =~ s/"/\"/g;
+ $arg =~ s/"/\\"/g;
return qq["$arg"];
}
