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