"mkfolder $comment -in " . $class->{parent} . ' ' . $name . '@' . $pvob->tag
);
- return $class->updateFolderInfo;
+ return if $status;
+
+ ($status, @output) = $class->updateFolderInfo;
+
+ return $status ? undef : $class;
} # new
sub name () {
=cut
return $Clearcase::CC->execute(
- 'rmfolder -f ' . $self->{name} . "\@" . $self->{pvob});
+ 'rmfolder -f ' . $self->{name} . "\@" . $self->{pvob}->tag);
} # rmfolder
sub updateFolderInfo () {
return $self;
} # updateFolderInfo
+
1;
=head1 DEPENDENCIES