Attribute-Handlers: Swap out base for parent in test files.

Committer's note: Add dist/Attribute-Handlers/demo/MyClass.pm to list of
files whose $VERSION numbers do not have to be incremented when modified.
Since this file is found in a 'demo/' directory, it does not have to be
treated as if it were a real Perl library which happens to be shipping
with core.

For: RT #119365

diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl
index f8fee14..46f1fef 100755 (executable)
--- a/Porting/cmpVERSION.pl
+++ b/Porting/cmpVERSION.pl
@@ -79,6 +79,7 @@ my %skip;
     'lib/Config.pm',           # no version number but contents will vary
     'dist/Exporter/lib/Exporter/Heavy.pm',
     'win32/FindExt.pm',
+    'dist/Attribute-Handlers/demo/MyClass.pm', # it's just demonstration code
 } = ();
 
 # Files to skip just for particular version(s),

diff --git a/dist/Attribute-Handlers/demo/MyClass.pm b/dist/Attribute-Handlers/demo/MyClass.pm
index d012b9f..7917536 100644 (file)
--- a/dist/Attribute-Handlers/demo/MyClass.pm
+++ b/dist/Attribute-Handlers/demo/MyClass.pm
@@ -1,7 +1,7 @@
 package MyClass;
 $VERSION = '1.00';
 use 5.006;
-use base Attribute::Handlers;
+use parent qw(Attribute::Handlers);
 no warnings 'redefine';
 
 

diff --git a/dist/Attribute-Handlers/t/multi.t b/dist/Attribute-Handlers/t/multi.t
index 5c80f82..34ff940 100644 (file)
--- a/dist/Attribute-Handlers/t/multi.t
+++ b/dist/Attribute-Handlers/t/multi.t
@@ -92,7 +92,7 @@ my %z :Aokay(1,19);
 sub z :Aokay(1,20) {};
 
 package DerTest;
-use base 'Test';
+use parent qw(Test);
 use warnings;
 
 my $x5 :Dokay(1,21);