Changeset 22590

Show
Ignore:
Timestamp:
09.08.2010 15:18:31 (9 years ago)
Author:
kjdon
Message:

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

Files:
1 modified

Legend:

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

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