Changeset 22536

Show
Ignore:
Timestamp:
31.07.2010 23:23:32 (9 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/basebuildproc.pm

    r22296 r22536  
    509509 
    510510        # escape problematic stuff 
    511         $value =~ s/\\/\\\\/g; 
     511        $value =~ s/([^\\])\\([^\\])/\1\\\\\2/g; 
    512512        $value =~ s/\n/\\n/g; 
    513513        $value =~ s/\r/\\r/g;