projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reset retryattempts when successfully reestablishing tunnel
[clearscm.git]
/
lib
/
Clearcase
/
UCM
/
Folder.pm
diff --git
a/lib/Clearcase/UCM/Folder.pm
b/lib/Clearcase/UCM/Folder.pm
index
26661a5
..
0d0da46
100644
(file)
--- 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
);
"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 () {
} # new
sub name () {
@@
-392,7
+396,7
@@
Output from cleartool
=cut
return $Clearcase::CC->execute(
=cut
return $Clearcase::CC->execute(
- 'rmfolder -f ' . $self->{name} . "\@" . $self->{pvob});
+ 'rmfolder -f ' . $self->{name} . "\@" . $self->{pvob}
->tag
);
} # rmfolder
sub updateFolderInfo () {
} # rmfolder
sub updateFolderInfo () {
@@
-416,6
+420,7
@@
sub updateFolderInfo () {
return $self;
} # updateFolderInfo
return $self;
} # updateFolderInfo
+
1;
=head1 DEPENDENCIES
1;
=head1 DEPENDENCIES