Import of CHROMATIC/UNIVERSAL-isa-1.20120726 from CPAN.

gitpan-cpan-distribution: UNIVERSAL-isa gitpan-cpan-version: 1.20120726 gitpan-cpan-path: CHROMATIC/UNIVERSAL-isa-1.20120726.tar.gz gitpan-cpan-author: CHROMATIC gitpan-cpan-maturity: released
gitpan · Oct 23, 2014 · b5bb459 · b5bb459
1 parent ed0df49
commit b5bb459
Show file tree

Hide file tree

Showing 5 changed files with 15 additions and 6 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,9 @@
 Changes for UNIVERSAL::isa
 --------------------------
 
+1.20120726 2012-07-25 20:51:54 America/Los_Angeles
+    - updated to work on Perl 5.17.2+ (rjbs)
+
 1.20120418 2012-04-18 12:15:33 America/Los_Angeles
     - removed use_ok from tests; it's unnecessary
 

diff --git a/META.yml b/META.yml
@@ -9,7 +9,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: 6.30
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300014, CPAN::Meta::Converter version 2.120921'
+generated_by: 'Dist::Zilla version 4.300020, CPAN::Meta::Converter version 2.120921'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -26,4 +26,4 @@ requires:
 resources:
   homepage: https://github.com/chromatic/UNIVERSAL-isa
   repository: https://github.com/chromatic/UNIVERSAL-isa.git
-version: 1.20120418
+version: 1.20120726
diff --git a/Makefile.PL b/Makefile.PL
@@ -31,7 +31,7 @@ my %WriteMakefileArgs = (
     "warnings" => 0,
     "warnings::register" => 0
   },
-  "VERSION" => "1.20120418",
+  "VERSION" => "1.20120726",
   "test" => {
     "TESTS" => "t/*.t"
   }

diff --git a/lib/UNIVERSAL/isa.pm b/lib/UNIVERSAL/isa.pm
@@ -1,6 +1,6 @@
 package UNIVERSAL::isa;
 {
-  $UNIVERSAL::isa::VERSION = '1.20120418';
+  $UNIVERSAL::isa::VERSION = '1.20120726';
 }
 # ABSTRACT: Attempt to recover from people calling UNIVERSAL::isa as a function
 

diff --git a/t/bugs.t b/t/bugs.t
@@ -122,10 +122,16 @@ TODO: {
     local $SIG{__WARN__} = sub { $warnings .= shift };
     use warnings 'UNIVERSAL::isa';
 
+    # Broken how? -- rjbs, 2012-07-24
     local $TODO = 'Apparently broken in 5.6.x' if $] < 5.007;
 
-    ok( ! UnloadedClass->isa( 'UNIVERSAL' ),
-        'unloaded class should not inherit from UNIVERSAL' );
+    {
+        local $TODO = "UnloadedClass->isa('UNIVERSAL') fails until 5.17.2"
+            if $] < 5.017002;
+
+        ok( UnloadedClass->isa( 'UNIVERSAL' ),
+            'unloaded class should inherit from UNIVERSAL' );
+    }
     is( $warnings, '', '... and should not warn' );
 }