Subversion Repositories DevTools

Rev

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

Rev 5991 Rev 5999
Line 278... Line 278...
278 
 
 278 
 
279 
    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - id not $(GBE_
 279 
    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - id not $(GBE_
280 
    $arg =~ s~ ~\\ ~g;
 280 
    $arg =~ s~ ~\\ ~g;
281 
    $arg =~ s~,~\$(comma)~g;
 281 
    $arg =~ s~,~\$(comma)~g;
282 
    $arg =~ s~%~\\%~g;
 282 
    $arg =~ s~%~\\%~g;
283 
    $arg =~ s~:~\\:~g;
 283 
    $arg =~ s~:~\\:~g if ($::ScmHost eq 'Unix');
284 
    return $prefix . $arg;
 284 
    return $prefix . $arg;
285 
}
 285 
}
286 
 
 286 
 
287 
#-------------------------------------------------------------------------------
 287 
#-------------------------------------------------------------------------------
288 
# Function        : AddDependancyEscaped
 288 
# Function        : AddDependancyEscaped