X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;ds=inline;f=lib%2FClearcase%2FUCM%2FPvob.pm;h=86629c144d45361f41c23be976e1921eac23e9f6;hb=75f06ef1cd56d531eb9ae086618bce3ff6aaa510;hp=0b3994939c218350c6f239255d0ea44211b0e76c;hpb=201c4691639017573d7caf7bf03de6bf12db6614;p=clearscm.git diff --git a/lib/Clearcase/UCM/Pvob.pm b/lib/Clearcase/UCM/Pvob.pm index 0b39949..86629c1 100644 --- a/lib/Clearcase/UCM/Pvob.pm +++ b/lib/Clearcase/UCM/Pvob.pm @@ -47,9 +47,7 @@ package Clearcase::UCM::Pvob; use strict; use warnings; -# Would be better represented by use parent "Clearcase::Vob" but we're -# working with old versions of Perl here... -use base 'Clearcase::Vob'; +use parent 'Clearcase::Vob'; use Carp; @@ -93,7 +91,8 @@ Returns: croak 'Clearcase::UCM::Pvob: Must specify pvob tag' unless $tag; $class = bless { - tag => $tag, + tag => $tag, + ucmproject => 1, }, $class; # bless $class->updateVobInfo; @@ -101,46 +100,6 @@ Returns: return $class; } # new -sub create (;$$$%) { - my ($self, $host, $vbs, $comment, %opts) = @_; - -=pod - -=head2 create - -Creates a pvob - -Parameters: - -=for html
- -=over - -=item none - -=back - -=for html- -Returns: - -=for html
- -=over - -=item none - -=back - -=for html- -=cut - - $opts{ucmproject} = undef; - - return $self->SUPER::create ($host, $vbs, $comment, %opts); -} # create - sub tag() { my ($self) = @_;