Subversion Repositories DevTools

Rev

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

Rev 5999 Rev 6065
Line 10274... Line 10274...
10274 
    #
 10274 
    #
10275 
    $uarg =~ m~^((\$\(.*?\)/)*)(.*)~;
 10275 
    $uarg =~ m~^((\$\(.*?\)/)*)(.*)~;
10276 
    my $prefix = defined $1 ? $1 : '';
 10276 
    my $prefix = defined $1 ? $1 : '';
10277 
    my $arg    = defined $3 ? $3 : '';
 10277 
    my $arg    = defined $3 ? $3 : '';
10278 
 
 10278 
 
10279 
    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - is not $(GBE_
 10279 
    $arg =~ s~\$(?!\(GBE_[A-Z]+\)|\(OBJDIR\))~\$\$~g;       # $, not followed by (GBE_ or (OBJDIR)- is not $(GBE_ AND nor $(OBJDIR)
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' &&  $::ScmHost eq "Unix");
 10283 
    $arg =~ s~:~\\\\\\:~g if ($mode eq 'T' &&  $::ScmHost eq "Unix");
10284 
    $arg =~ s~:~\\:~g     if ($mode eq 'S' &&  $::ScmHost eq "Unix");
 10284 
    $arg =~ s~:~\\:~g     if ($mode eq 'S' &&  $::ScmHost eq "Unix");
Line 10513... Line 10513...
10513 
    foreach my $dest ( keys %{$hashp} )
 10513 
    foreach my $dest ( keys %{$hashp} )
10514 
    {
 10514 
    {
10515 
 
 10515 
 
10516 
        my $entry = $hashp->{$dest};
 10516 
        my $entry = $hashp->{$dest};
10517 
        my $destText = QuoteForMake($dest,'T');
 10517 
        my $destText = QuoteForMake($dest,'T');
10518 
 
 - 
 
10519 
        #
 10518 
        #
10520 
        #   Skip placekeepers
 10519 
        #   Skip placekeepers
10521 
        #
 10520 
        #
10522 
        next if ( $entry->{'placekeeper'} );
 10521 
        next if ( $entry->{'placekeeper'} );
10523 
 
 10522