| Subject: | UNIVERSAL deprecation messages in 5.11+ |
This is a warning being emitted by p5p as of perl 5.11 to get people to
stop doing use UNIVERSAL;
This thread explains why it was done.
http://www.nntp.perl.org/group/perl.perl5.porters/2009/01/msg1437
70.html
This patch should correct the problem and as I understand it is 100%
backwards compatible since it wasn't supposed to have been done to
begin with. I have run the test suite under 5.12.0-RC0 and this corrects
the problem.
| Subject: | patch.txt |
diff --git a/Cycle.pm b/Cycle.pm
index 32b2ee4..f356da4 100644
--- a/Cycle.pm
+++ b/Cycle.pm
@@ -3,7 +3,6 @@ package List::Cycle;
use warnings;
use strict;
use Carp;
-use UNIVERSAL qw( isa );
=head1 NAME
@@ -15,7 +14,7 @@ Version 0.04
=cut
-our $VERSION = '0.04';
+our $VERSION = '0.05';
=head1 SYNOPSIS
@@ -145,7 +144,7 @@ sub dump {
while ( my($key,$value) = each %storage ) {
my $realval = $value->{$self};
- $realval = join( ",", @$realval ) if isa( $realval, "ARRAY" );
+ $realval = join( ",", @$realval ) if UNIVERSAL::isa( $realval, "ARRAY" );
$str .= "$key => $realval\n";
}
return $str;