Subversion Repositories DevTools

Rev

Rev 2449 | Rev 3890 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2449 Rev 2650
Line 9942... Line 9942...
9942 
    my $arg    = defined $3 ? $3 : '';
 9942 
    my $arg    = defined $3 ? $3 : '';
9943 
 
 9943 
 
9944 
    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - id not $(GBE_
 9944 
    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - id not $(GBE_
9945 
    $arg =~ s~ ~\\ ~g;
 9945 
    $arg =~ s~ ~\\ ~g;
9946 
    $arg =~ s~,~\$(comma)~g;
 9946 
    $arg =~ s~,~\$(comma)~g;
- 
 
 9947 
    $arg =~ s~%~\\%~g;
9947 
    return $prefix . $arg;
 9948 
    return $prefix . $arg;
9948 
}
 9949 
}
9949 
 
 9950 
 
9950 
 
 9951 
 
9951 
#-------------------------------------------------------------------------------
 9952 
#-------------------------------------------------------------------------------