This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
base.pm no longer modifies $VERSION
[perl5.git] / dist / base / t / base.t
index 19a2817..6fb24ea 100644 (file)
@@ -14,7 +14,7 @@ sub VERSION { 42 }
 package Test::Version;
 
 use base qw(No::Version);
-::ok( $No::Version::VERSION =~ /set by base\.pm/,          '$VERSION bug' );
+::ok( ! defined $No::Version::VERSION, '$VERSION bug' );
 
 # Test Inverse of $VERSION bug base.pm should not clobber existing $VERSION
 package Has::Version;