X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/0c1d6ad7c56336f44f5ca9213891dc048565bb49..4141ef59170e80715499432a2f4b9bfca704247d:/cpan/version/t/02derived.t?ds=inline

diff --git a/cpan/version/t/02derived.t b/cpan/version/t/02derived.t
index 6ed9524..8cf2743 100644
--- a/cpan/version/t/02derived.t
+++ b/cpan/version/t/02derived.t
@@ -10,19 +10,19 @@ use File::Temp qw/tempfile/;
 BEGIN {
     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
     require $coretests;
-    use_ok("version", 0.9904);
+    use_ok("version", 0.9905);
     # If we made it this far, we are ok.
 }
 
 use lib qw/./;
 
 package version::Bad;
-use base 'version';
+use parent 'version';
 sub new { my($self,$n)=@_;  bless \$n, $self }
 
 # Bad subclass for SemVer failures seen with pure Perl version.pm only
 package version::Bad2;
-use base 'version';
+use parent 'version';
 sub new {
     my ($class, $val) = @_;
     die 'Invalid version string format' unless version::is_strict($val);
@@ -45,7 +45,7 @@ my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
 print $fh <<"EOF";
 # This is an empty subclass
 package $package;
-use base 'version';
+use parent 'version';
 use vars '\$VERSION';
 \$VERSION=0.001;
 EOF