Subversion Repositories DevTools

Rev

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

Rev 227 Rev 237
Line 455... Line 455...
455 
        $dir =~ tr~\\/~/~s;
 455 
        $dir =~ tr~\\/~/~s;
456 
        $dir =~ s~/+$~~;
 456 
        $dir =~ s~/+$~~;
457 
        $dir = '/' unless ( $dir );
 457 
        $dir = '/' unless ( $dir );
458 
 
 458 
 
459 
        Verbose ("Examine subdirectory: $dir");
 459 
        Verbose ("Examine subdirectory: $dir");
460 
        my $find_arg = $opt_recurse ? '' : '-nrecurse ';
 460 
        my $find_arg = $opt_recurse ? '' : '-nrecurse';
461 
        my $cmd = QuoteCommand ("cleartool", "find", "$dir", "-cview", $find_arg, "-version", "{!lbtype($label)}", "-print");
 461 
        my $cmd = QuoteCommand ("cleartool", "find", "$dir", "-cview", $find_arg, "-version", "{!lbtype($label)}", "-print");
462 
        Verbose2($cmd);
 462 
        Verbose2($cmd);
463 
 
 463 
 
464 
        open(CMD, "$cmd 2>&1 |") || Error( "can't run command: $!");
 464 
        open(CMD, "$cmd 2>&1 |") || Error( "can't run command: $!");
465 
        while (<CMD>)
 465 
        while (<CMD>)