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"]; }