Subversion Repositories DevTools

Rev

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

Rev 5991 Rev 5999
Line 10278... Line 10278...
10278 
 
 10278 
 
10279 
    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - is not $(GBE_
 10279 
    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - is not $(GBE_
10280 
    $arg =~ s~ ~\\ ~g;
 10280 
    $arg =~ s~ ~\\ ~g;
10281 
    $arg =~ s~,~\$(comma)~g;
 10281 
    $arg =~ s~,~\$(comma)~g;
10282 
    $arg =~ s~%~\\%~g;
 10282 
    $arg =~ s~%~\\%~g;
10283 
    $arg =~ s~:~\\\\\\:~g if ($mode eq 'T');
 10283 
    $arg =~ s~:~\\\\\\:~g if ($mode eq 'T' &&  $::ScmHost eq "Unix");
10284 
    $arg =~ s~:~\\:~g     if ($mode eq 'S');
 10284 
    $arg =~ s~:~\\:~g     if ($mode eq 'S' &&  $::ScmHost eq "Unix");
10285 
    return $prefix . $arg;
 10285 
    return $prefix . $arg;
10286 
}
 10286 
}
10287 
 
 10287 
 
10288 
#-------------------------------------------------------------------------------
 10288 
#-------------------------------------------------------------------------------
10289 
# Function        : Maketag
 10289 
# Function        : Maketag