Changeset 22590 for main

Timestamp:

2010-08-09T15:18:31+12:00 (14 years ago)

Author:

kjdon

Message:

perl told me to replace \1 and \2 with $1 and $2

File:

• main/trunk/greenstone2/perllib/basebuildproc.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/basebuildproc.pm

@@ -509 +509 @@
 
         # escape problematic stuff
-        $value =~ s/([^\\])\\([^\\])/\1\\\\\2/g;
+        $value =~ s/([^\\])\\([^\\])/$1\\\\$2/g;
         $value =~ s/\n/\\n/g;
         $value =~ s/\r/\\r/g;