projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More changes to Clearcase and Clearquest stuff
[clearscm.git]
/
lib
/
Clearcase
/
Vob.pm
diff --git
a/lib/Clearcase/Vob.pm
b/lib/Clearcase/Vob.pm
index
397c368
..
ca4f765
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,28
@@
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) {
if ($host && $vbs) {
+ $additionalOpts .= '-ucmproject' if $self->{ucmproject};
+
($status, @output) = $Clearcase::CC->execute (
($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;
@@
-1343,9
+1355,9
@@
sub updateVobInfo ($$) {
=head3 ClearSCM Perl Modules
=head3 ClearSCM Perl Modules
-=for html <p><a href="/php/
cvs
_man.php?file=lib/Clearcase.pm">Clearcase</a></p>
+=for html <p><a href="/php/
scm
_man.php?file=lib/Clearcase.pm">Clearcase</a></p>
-=for html <p><a href="/php/
cvs
_man.php?file=lib/OSDep.pm">OSdep</a></p>
+=for html <p><a href="/php/
scm
_man.php?file=lib/OSDep.pm">OSdep</a></p>
=head2 BUGS AND LIMITATIONS
=head2 BUGS AND LIMITATIONS