Subversion Repositories DevTools

Rev

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

Rev 319 Rev 325
Line 173... Line 173...
173 
    unless ( LocateProgInPath('cleartool', '--All') );
 173 
    unless ( LocateProgInPath('cleartool', '--All') );
174 
 
 174 
 
175 
#-------------------------------------------------------------------------------
 175 
#-------------------------------------------------------------------------------
176 
#   Construct a vob descriptor, if required
 176 
#   Construct a vob descriptor, if required
177 
#
 177 
#
- 
 
 178 
#   There is a potential problem/race condition if doing a rename
- 
 
 179 
#   within a static view of a label that is a part of the views config spec
- 
 
 180 
#
- 
 
 181 
#   Work around: If performing a rename, then ensure that we have the VOB name
- 
 
 182 
#
- 
 
 183 
if ( $opt_rename && ! $opt_vob )
- 
 
 184 
{
- 
 
 185 
    Verbose ("Determine VOB name");
- 
 
 186 
    ClearCmd ('describe', '-short', 'vob:.' );
- 
 
 187 
    Error ("Cannot determine vob from current directory") if ( @error_list || ! $last_result );
- 
 
 188 
    $vob_desc = '@' . $last_result;
- 
 
 189 
    Verbose ("VOB name: $vob_desc");
- 
 
 190
- 
 
 191 
}
178 
if ( $opt_vob )
 192 
elsif ( $opt_vob )
179 
{
 193 
{
180 
    Error ("-vob option cannot be used with this command")
 194 
    Error ("-vob option cannot be used with this command")
181 
        if ( $opt_clone || $opt_label || $opt_show || $opt_remove  );
 195 
        if ( $opt_clone || $opt_label || $opt_show || $opt_remove  );
182 
 
 196 
 
183 
    $vob_desc = $UNIX_VOB_PREFIX if ( $UNIX );
 197 
    $vob_desc = $UNIX_VOB_PREFIX if ( $UNIX );