This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade parent from version 0.232 to 0.234
authorSteve Hay <steve.m.hay@googlemail.com>
Fri, 5 Jun 2015 07:51:19 +0000 (08:51 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Fri, 5 Jun 2015 07:51:19 +0000 (08:51 +0100)
Porting/Maintainers.pl
cpan/parent/lib/parent.pm
cpan/parent/t/parent-pmc.t
cpan/parent/t/parent.t
pod/perldelta.pod

index b13ed88..09d44d3 100755 (executable)
@@ -871,7 +871,7 @@ use File::Glob qw(:case);
     },
 
     'parent' => {
-        'DISTRIBUTION' => 'CORION/parent-0.232.tar.gz',
+        'DISTRIBUTION' => 'CORION/parent-0.234.tar.gz',
         'FILES'        => q[cpan/parent],
     },
 
index 445ed12..f6e8cd4 100644 (file)
@@ -1,7 +1,7 @@
 package parent;
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.232';
+$VERSION = '0.234';
 
 sub import {
     my $class = shift;
@@ -12,10 +12,6 @@ sub import {
         shift @_;
     } else {
         for ( my @filename = @_ ) {
-            if ( $_ eq $inheritor ) {
-                warn "Class '$inheritor' tried to inherit from itself\n";
-            };
-
             s{::|'}{/}g;
             require "$_.pm"; # dies if the file is not found
         }
@@ -94,19 +90,6 @@ either C<.pm> or C<.pmc>), use the following code:
   require './plugins/custom.plugin'; # contains Plugin::Custom
   use parent -norequire, 'Plugin::Custom';
 
-=head1 DIAGNOSTICS
-
-=over 4
-
-=item Class 'Foo' tried to inherit from itself
-
-Attempting to inherit from yourself generates a warning.
-
-    package Foo;
-    use parent 'Foo';
-
-=back
-
 =head1 HISTORY
 
 This module was forked from L<base> to remove the cruft
index a8708b4..01f70f7 100644 (file)
@@ -13,16 +13,10 @@ use Config;
 use lib 't/lib';
 
 plan skip_all => ".pmc are only available with 5.6 and later" if $] < 5.006;
-my $no_pmc;
-
-if (Config->can('non_bincompat_options')) {
-    foreach(Config::non_bincompat_options()) {
-       if($_ eq "PERL_DISABLE_PMC"){
-           $no_pmc = 1;
-           last;
-       }
-    }
-};
+
+my $no_pmc = defined &Config::non_bincompat_options
+    ? (grep $_ eq 'PERL_DISABLE_PMC', Config::non_bincompat_options())
+    : ($Config::Config{ccflags} =~ /-DPERL_DISABLE_PMC\b/);
 plan skip_all => ".pmc are disabled in this perl"
     if $no_pmc;
 plan tests => 3;
index 8b79862..dedf211 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
 }
 
 use strict;
-use Test::More tests => 10;
+use Test::More tests => 9;
 
 use_ok('parent');
 
@@ -65,13 +65,6 @@ like( $@, $expected, 'baseclass that does not exist');
 
 eval q{use parent 'reallyReAlLyNotexists'};
 like( $@, $expected, '  still failing on 2nd load');
-{
-    my $warning;
-    local $SIG{__WARN__} = sub { $warning = shift };
-    eval q{package HomoGenous; use parent 'HomoGenous';};
-    like($warning, q{/^Class 'HomoGenous' tried to inherit from itself/},
-                                          '  self-inheriting');
-}
 
 {
     BEGIN { $Has::Version_0::VERSION = 0 }
index 34adb50..fb6bfc4 100644 (file)
@@ -158,6 +158,10 @@ L<Module::Metadata> has been upgraded from version 1.000026 to 1.000027.
 
 =item *
 
+L<parent> has been upgraded from version 0.232 to 0.234.
+
+=item *
+
 L<perl5db.pl> has been upgraded from version 1.49 to 1.49_01.
 
 User actions are no longer evaluated after the script under the