Changeset 881

Show
Ignore:
Timestamp:
02/08/08 19:55:35 (11 months ago)
Author:
znx
Message:

Fixing | and [ breakage in %OWNER, #127

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/modules/output.tcl

    r873 r881  
    349349        #owners 
    350350        set loops 0 
     351 
    351352        while {[regexp -nocase "%OWNER\{(.*?)\}" $line matches BOOM]} { 
     353                set BOOM [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\} $ \\\$ \" \\\" | \\\|} $BOOM] 
     354 
    352355                incr loops 
    353356                if {$loops > 10} { 
    … …  
    357360                # set line [bMotionInsertString $line "%OWNER\{$BOOM\}" [bMotionMakePossessive $BOOM]] 
    358361                regsub -nocase "%OWNER\{$BOOM\}" $line [bMotionMakePossessive $BOOM] line 
     362                regsub -all "\\\\" $line "" line 
    359363        } 
    360364