projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Various changes and additions for UCM and testing things
[clearscm.git]
/
lib
/
Clearcase
/
Vob.pm
diff --git
a/lib/Clearcase/Vob.pm
b/lib/Clearcase/Vob.pm
index
6c957c0
..
142c1dc
100644
(file)
--- a/
lib/Clearcase/Vob.pm
+++ b/
lib/Clearcase/Vob.pm
@@
-264,6
+264,10
@@
Returns:
return $self->{shost};
} # shost
return $self->{shost};
} # shost
+# Alias name to tag
+sub name() {
+ goto &tag;
+} # name
sub access () {
my ($self) = @_;
sub access () {
my ($self) = @_;
@@
-1177,8
+1181,8
@@
Returns:
return !$status;
} # exists
return !$status;
} # exists
-sub create (;$$$) {
- my ($self, $host, $vbs, $comment) = @_;
+sub create (;$$$
%
) {
+ my ($self, $host, $vbs, $comment
, %opts
) = @_;
=pod
=pod
@@
-1232,20
+1236,26
@@
Ouput from cleartool
return (0, ()) if $self->exists;
return (0, ()) if $self->exists;
- $comment = Clearcase::setComment $comment;
+ $comment = Clearcase::
_
setComment $comment;
my ($status, @output);
my ($status, @output);
+ my $additionalOpts = '';
+
+ for (keys %opts) {
+ $additionalOpts .= "-$_ ";
+ $additionalOpts .= "$opts{$_} " if $opts{$_};
+ } # for
+
if ($host && $vbs) {
($status, @output) = $Clearcase::CC->execute (
if ($host && $vbs) {
($status, @output) = $Clearcase::CC->execute (
- "mkvob -tag $self->{tag} $comment -host $host -hpath $vbs "
+ "mkvob -tag $self->{tag} $comment
$additionalOpts
-host $host -hpath $vbs "
. "-gpath $vbs $vbs");
} else {
# Note this requires that -stgloc's work and that using -auto is not a
# problem.
($status, @output) =
. "-gpath $vbs $vbs");
} else {
# Note this requires that -stgloc's work and that using -auto is not a
# problem.
($status, @output) =
- $Clearcase::CC->execute ("mkvob -tag $self->{tag} $comment "
- . "-stgloc -auto");
+ $Clearcase::CC->execute ("mkvob -tag $self->{tag} $comment $additionalOpts -stgloc -auto");
} # if
$self->updateVobInfo;
} # if
$self->updateVobInfo;