X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FClearcase%2FUCM%2FPvob.pm;h=86629c144d45361f41c23be976e1921eac23e9f6;hb=cc363d84e59a0beafb118bdc7b523fce374ba2b1;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 <blockquote>
-
-=over
-
-=item none
-
-=back
-
-=for html </blockquote>
-
-Returns:
-
-=for html <blockquote>
-
-=over
-
-=item none
-
-=back
-
-=for html </blockquote>
-
-=cut
-
-  $opts{ucmproject} = undef;
-
-  return $self->SUPER::create ($host, $vbs, $comment, %opts);
-} # create
-
 sub tag() {
   my ($self) = @_;