r74191 - in /trunk/libyaml-appconfig-perl/debian: changelog patches/ patches/no-UNIVERSAL-import.patch patches/series

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed May 11 14:19:53 2011
New Revision: 74191

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74191
Log:
add patch removing deprecated use of UNIVERSAL::isa.
Closes: #614875

Added:
    trunk/libyaml-appconfig-perl/debian/patches/
    trunk/libyaml-appconfig-perl/debian/patches/no-UNIVERSAL-import.patch
    trunk/libyaml-appconfig-perl/debian/patches/series
Modified:
    trunk/libyaml-appconfig-perl/debian/changelog

Modified: trunk/libyaml-appconfig-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libyaml-appconfig-perl/debian/changelog?rev=74191&op=diff
==============================================================================
--- trunk/libyaml-appconfig-perl/debian/changelog (original)
+++ trunk/libyaml-appconfig-perl/debian/changelog Wed May 11 14:19:53 2011
@@ -7,6 +7,10 @@
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
 
+  [ Damyan Ivanov ]
+  * add patch removing deprecated use of UNIVERSAL::isa.
+    Closes: #614875
+
  -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:49:36 +0100
 
 libyaml-appconfig-perl (0.16-1) unstable; urgency=low

Added: trunk/libyaml-appconfig-perl/debian/patches/no-UNIVERSAL-import.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libyaml-appconfig-perl/debian/patches/no-UNIVERSAL-import.patch?rev=74191&op=file
==============================================================================
--- trunk/libyaml-appconfig-perl/debian/patches/no-UNIVERSAL-import.patch (added)
+++ trunk/libyaml-appconfig-perl/debian/patches/no-UNIVERSAL-import.patch Wed May 11 14:19:53 2011
@@ -1,0 +1,42 @@
+Description: Replace UNIVERSAL's isa with simple ref() check
+ Importing and using UNIVERSAL's isa is deprecated with Perl 5.12
+ Instead, a simple check for ref($value) brings the same result
+Author: Damyan Ivanov <dmn at debian.org>
+Bug-Debian: http://bugs.debian.org/614875
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=65539
+
+--- a/lib/YAML/AppConfig.pm
++++ b/lib/YAML/AppConfig.pm
+@@ -2,7 +2,6 @@ package YAML::AppConfig;
+ use strict;
+ use warnings;
+ use Carp;
+-use UNIVERSAL qw(isa);
+ use Storable qw(dclone);  # For Deep Copy
+ 
+ ####################
+@@ -113,7 +112,7 @@ sub _resolve_refs {
+     if ( not ref $value ) {
+         $value = $self->_resolve_scalar($value);
+     }
+-    elsif ( isa $value, 'HASH' ) {
++    elsif ( ref($value) eq 'HASH' ) {
+         $value = dclone($value);
+         my @hidden = $self->_push_scope($value);
+         for my $key ( keys %$value ) {
+@@ -122,13 +121,13 @@ sub _resolve_refs {
+         $self->_pop_scope(@hidden);
+         return $value;
+     }
+-    elsif ( isa $value, 'ARRAY' ) {
++    elsif ( ref($value) eq 'ARRAY' ) {
+         $value = dclone($value);
+         for my $item (@$value) {
+             $item = $self->_resolve_refs( $item );
+         }
+     }
+-    elsif ( isa $value, 'SCALAR' ) {
++    elsif ( ref($value) eq 'SCALAR' ) {
+         $value = $self->_resolve_scalar($$value);
+     } 
+     else {

Added: trunk/libyaml-appconfig-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libyaml-appconfig-perl/debian/patches/series?rev=74191&op=file
==============================================================================
--- trunk/libyaml-appconfig-perl/debian/patches/series (added)
+++ trunk/libyaml-appconfig-perl/debian/patches/series Wed May 11 14:19:53 2011
@@ -1,0 +1,1 @@
+no-UNIVERSAL-import.patch