Changeset 22536

Timestamp:

2010-07-31T23:23:32+12:00 (14 years ago)

Author:

max

Message:

Fix the bug where metadata containing back slashes would endlessly be escaped by new backslashes, making the metadata database grow exponentially when using incremental building.

File:

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

main/trunk/greenstone2/perllib/basebuildproc.pm

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