r37054 - in /branches/upstream/libuniversal-isa-perl/current: Build.PL META.yml README lib/UNIVERSAL/isa.pm t/bugs.t

nhandler-guest at users.alioth.debian.org nhandler-guest at users.alioth.debian.org
Mon Jun 1 00:38:40 UTC 2009


Author: nhandler-guest
Date: Mon Jun  1 00:38:36 2009
New Revision: 37054

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37054
Log:
[svn-upgrade] Integrating new upstream version, libuniversal-isa-perl (1.02)

Modified:
    branches/upstream/libuniversal-isa-perl/current/Build.PL
    branches/upstream/libuniversal-isa-perl/current/META.yml
    branches/upstream/libuniversal-isa-perl/current/README
    branches/upstream/libuniversal-isa-perl/current/lib/UNIVERSAL/isa.pm
    branches/upstream/libuniversal-isa-perl/current/t/bugs.t

Modified: branches/upstream/libuniversal-isa-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuniversal-isa-perl/current/Build.PL?rev=37054&op=diff
==============================================================================
--- branches/upstream/libuniversal-isa-perl/current/Build.PL (original)
+++ branches/upstream/libuniversal-isa-perl/current/Build.PL Mon Jun  1 00:38:36 2009
@@ -11,7 +11,11 @@
     module_name => 'UNIVERSAL::isa',
     license     => 'perl',
     requires    => {
-        'perl' => '5.6.2',
+        'perl'         => '5.6.2',
         'Scalar::Util' => 0,
     },
+    build_requires => {
+        'perl'          => '5.6.2',
+        'Module::Build' => '0.31',
+    }
 )->create_build_script;

Modified: branches/upstream/libuniversal-isa-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuniversal-isa-perl/current/META.yml?rev=37054&op=diff
==============================================================================
--- branches/upstream/libuniversal-isa-perl/current/META.yml (original)
+++ branches/upstream/libuniversal-isa-perl/current/META.yml Mon Jun  1 00:38:36 2009
@@ -1,6 +1,6 @@
 ---
 name: UNIVERSAL-isa
-version: 1.01
+version: 1.02
 author:
   - 'Audrey Tang <cpan at audreyt.org>'
   - 'chromatic <chromatic at wgz.org>'
@@ -14,11 +14,14 @@
 requires:
   Scalar::Util: 0
   perl: 5.6.2
+build_requires:
+  Module::Build: 0.31
+  perl: 5.6.2
 provides:
   UNIVERSAL::isa:
     file: lib/UNIVERSAL/isa.pm
-    version: 1.01
-generated_by: Module::Build version 0.2808
+    version: 1.02
+generated_by: Module::Build version 0.33
 meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.2.html
-  version: 1.2
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4

Modified: branches/upstream/libuniversal-isa-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuniversal-isa-perl/current/README?rev=37054&op=diff
==============================================================================
--- branches/upstream/libuniversal-isa-perl/current/README (original)
+++ branches/upstream/libuniversal-isa-perl/current/README Mon Jun  1 00:38:36 2009
@@ -1,7 +1,7 @@
 UNIVERSAL::isa
 --------------
 
-Version 1.01 - Fri Aug 22 05:29:08 UTC 2008
+Version 1.02 - Sat May 30 19:44:24 UTC 2009
 
 Attempt to recover from people calling UNIVERSAL::isa as a function
 
@@ -43,4 +43,4 @@
 
 COPYRIGHT & LICENSE
 
-    Artistic License 2.0, (c) 2005 - 2008.
+    Artistic License 2.0, (c) 2005 - 2009.

Modified: branches/upstream/libuniversal-isa-perl/current/lib/UNIVERSAL/isa.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuniversal-isa-perl/current/lib/UNIVERSAL/isa.pm?rev=37054&op=diff
==============================================================================
--- branches/upstream/libuniversal-isa-perl/current/lib/UNIVERSAL/isa.pm (original)
+++ branches/upstream/libuniversal-isa-perl/current/lib/UNIVERSAL/isa.pm Mon Jun  1 00:38:36 2009
@@ -8,7 +8,7 @@
 use Scalar::Util 'blessed';
 use warnings::register;
 
-$VERSION = '1.01';
+$VERSION = '1.02';
 
 my ( $orig, $verbose_warning );
 
@@ -169,6 +169,6 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Artistic Licence 2.0, (c) 2005 - 2008.
+Artistic Licence 2.0, (c) 2005 - 2009.
 
 =cut

Modified: branches/upstream/libuniversal-isa-perl/current/t/bugs.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuniversal-isa-perl/current/t/bugs.t?rev=37054&op=diff
==============================================================================
--- branches/upstream/libuniversal-isa-perl/current/t/bugs.t (original)
+++ branches/upstream/libuniversal-isa-perl/current/t/bugs.t Mon Jun  1 00:38:36 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 10;
+use Test::More tests => 12;
 
 BEGIN { use_ok('UNIVERSAL::isa', 'isa') };
 
@@ -94,9 +94,12 @@
 
 is( scalar(isa(undef, 'Foo')), undef, 'isa on undef returns undef');
 
-eval { require CGI };
+SKIP: {
+    eval { require CGI };
+    skip( 'CGI not installed; RT #19671', 1 ) if $@;
 
-isa_ok( CGI->new(''), 'CGI' ) unless $@;
+    isa_ok( CGI->new(''), 'CGI' );
+}
 
 # overloaded objects
 {
@@ -114,12 +117,29 @@
 isa_ok( $proxy, 'Foo' );
 
 # valid use of isa() as static method on undefined class
+TODO: {
+    my $warnings         = '';
+    local $SIG{__WARN__} = sub { $warnings .= shift };
+    use warnings 'UNIVERSAL::isa';
+
+    local $TODO = 'Apparently broken in 5.6.x' if $] < 5.007;
+
+    ok( ! UnloadedClass->isa( 'UNIVERSAL' ),
+        'unloaded class should not inherit from UNIVERSAL' );
+    is( $warnings, '', '... and should not warn' );
+}
+
+# on an unloaded class
 {
     my $warnings         = '';
     local $SIG{__WARN__} = sub { $warnings .= shift };
     use warnings 'UNIVERSAL::isa';
 
-    ok( ! UnloadedClass->isa( 'UNIVERSAL' ),
-        'unloaded class should not inherit from UNIVERSAL' );
-    is( $warnings, '', '... and should not warn' );
+    UNIVERSAL::isa("Foo", "Bar");
+    like( $warnings, qr/Called UNIVERSAL::isa/,
+        'warning on unloaded class given class (RT #24822)' );
+
+    UNIVERSAL::isa(bless({}, "Foo"), "Bar");
+    like( $warnings, qr/Called UNIVERSAL::isa/,
+        'warning on unloaded class given object (RT #24882)' );
 }




More information about the Pkg-perl-cvs-commits mailing list