Subversion Repositories DevTools

Rev

Rev 7272 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7272 Rev 7547
Line 93... Line 93...
93 
    my $RepoPath = shift;
 93 
    my $RepoPath = shift;
94 
    my $path = shift;
 94 
    my $path = shift;
95 
    my %opt = @_;
 95 
    my %opt = @_;
96 
 
 96 
 
97 
    Debug ("SvnCo", $RepoPath, $path);
 97 
    Debug ("SvnCo", $RepoPath, $path);
98 
    Error ("SvnCi: Odd number of args") unless ((@_ % 2) == 0);
 98 
    Error ("SvnCo: Odd number of args") unless ((@_ % 2) == 0);
99 
 
 99 
 
100 
    #
 100 
    #
101 
    #   Set some defaults
 101 
    #   Set some defaults
102 
    #
 102 
    #
103 
    my $cmd = $opt{export} ? 'export' : 'checkout';
 103 
    my $cmd = $opt{export} ? 'export' : 'checkout';
Line 263... Line 263...
263 
            Verbose2 ("Remove WorkSpace: $path");
 263 
            Verbose2 ("Remove WorkSpace: $path");
264 
            rmtree( $path, IsVerbose(3) );
 264 
            rmtree( $path, IsVerbose(3) );
265 
            rmtree( $path, IsVerbose(3) );
 265 
            rmtree( $path, IsVerbose(3) );
266 
            Error ("Switch elements", @{$self->{ERROR_LIST}}, @sw_list );
 266 
            Error ("Switch elements", @{$self->{ERROR_LIST}}, @sw_list );
267 
        }
 267 
        }
268 
        Warning("Switch error: Workspace state unkwown", @{$self->{ERROR_LIST}}, @sw_list);
 268 
        Warning("Switch error: Workspace state unknown", @{$self->{ERROR_LIST}}, @sw_list);
269 
    }
 269 
    }
270 
    return;
 270 
    return;
271 
 
 271 
 
272 
    #
 272 
    #
273 
    #   Internal routine to scan each line of the Switch output
 273 
    #   Internal routine to scan each line of the Switch output