for mv, checking out directories is a soft error

This commit is contained in:
Cary Sandvig 2000-10-05 23:09:50 +00:00
parent a667bcc97b
commit 45db8e3d8d

View File

@ -403,13 +403,9 @@ sub CTCcaseMv {
local( $parent2 ) = join( "/", @alist ) ; local( $parent2 ) = join( "/", @alist ) ;
&CTUDebug( "parent directory of '" . $elem2 . "' is '" . $parent2 . &CTUDebug( "parent directory of '" . $elem2 . "' is '" . $parent2 .
"'\n" ) ; "'\n" ) ;
$ret = system( "cleartool co -nc $parent\n" ) ; system( "cleartool co -nc $parent\n" ) ;
if ( $ret == 0 ) { system( "cleartool co -nc $parent2\n" ) ;
$ret = system( "cleartool co -nc $parent2\n" ) ; $ret = &CTURetCode( system( "cleartool mv $elem $elem2\n" )) ;
$ret = &CTURetCode( system( "cleartool mv $elem $elem2\n" )) ;
} else {
$ret = 0 ;
}
&CTUDebug( "out of CTCcaseMv\n" ) ; &CTUDebug( "out of CTCcaseMv\n" ) ;
$ret ; $ret ;
} }