Sophie

Sophie

distrib > Mageia > 3 > i586 > media > core-release-src > by-pkgid > 4370ce6a96641f5398b2808002626ffe > files > 1

perl-YAML-AppConfig-0.160.0-4.mga3.src.rpm

diff -Naur -x '*~' YAML-AppConfig-0.16/lib/YAML/AppConfig.pm YAML-AppConfig-0.16-fix-warning/lib/YAML/AppConfig.pm
--- YAML-AppConfig-0.16/lib/YAML/AppConfig.pm	2006-07-09 09:34:56.000000000 +0200
+++ YAML-AppConfig-0.16-fix-warning/lib/YAML/AppConfig.pm	2011-02-07 20:36:26.000000000 +0100
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 use Carp;
-use UNIVERSAL qw(isa);
 use Storable qw(dclone);  # For Deep Copy
 
 ####################
@@ -113,7 +112,7 @@
     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 @@
         $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 {