X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FClearcase%2FUCM%2FFolder.pm;h=0d0da46d4bccae756ceb6b1be0724d405ca7f817;hb=a70e80a6af6e31d56b120348bc8bc23cdd6543f5;hp=26661a5bc0a3c2492fa60b0324461fea9eea997d;hpb=1140ca8d56832ae529db0f353112ac192cdf9432;p=clearscm.git

diff --git a/lib/Clearcase/UCM/Folder.pm b/lib/Clearcase/UCM/Folder.pm
index 26661a5..0d0da46 100644
--- a/lib/Clearcase/UCM/Folder.pm
+++ b/lib/Clearcase/UCM/Folder.pm
@@ -96,7 +96,11 @@ Returns:
     "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 () {
@@ -392,7 +396,7 @@ Output from cleartool
 =cut
 
   return $Clearcase::CC->execute(
-    'rmfolder -f ' . $self->{name} . "\@" . $self->{pvob});
+    'rmfolder -f ' . $self->{name} . "\@" . $self->{pvob}->tag);
 } # rmfolder
 
 sub updateFolderInfo () {
@@ -416,6 +420,7 @@ sub updateFolderInfo () {
 
   return $self;
 } # updateFolderInfo
+
 1;
 
 =head1 DEPENDENCIES