Ticket #1322: padre-universal-config-tiny-path.diff

t/collection/Config-Tiny/t/02_main.t

@@ -9 +9 @@
     $^W = 1;
 }
 
-use UNIVERSAL;
+use Scalar::Util 'reftype';
 use Test::More tests => 33;
 
 use vars qw{$VERSION};
@@ -32 +32 @@
 ok( $Trivial,     '->new returns true' );
 ok( ref $Trivial, '->new returns a reference' );
 
-# Legitimate use of UNIVERSAL::isa
-ok( UNIVERSAL::isa( $Trivial, 'HASH' ), '->new returns a hash reference' );
+ok( reftype($Trivial) eq 'HASH' ), '->new returns a hash reference' );
 isa_ok( $Trivial, 'Config::Tiny' );
 ok( scalar keys %$Trivial == 0, '->new returns an empty object' );
 
@@ -42 +41 @@
 ok( $Config,     '->read returns true' );
 ok( ref $Config, '->read returns a reference' );
 
-# Legitimate use of UNIVERSAL::isa
-ok( UNIVERSAL::isa( $Config, 'HASH' ), '->read returns a hash reference' );
+ok( reftype($Config) eq 'HASH' ), '->read returns a hash reference' );
 isa_ok( $Config, 'Config::Tiny' );
 
 # Check the structure of the config
@@ -104 +102 @@
 ok( $Read,     '->read of what we wrote returns true' );
 ok( ref $Read, '->read of what we wrote returns a reference' );
 
-# Legitimate use of UNIVERSAL::isa
-ok( UNIVERSAL::isa( $Read, 'HASH' ), '->read of what we wrote returns a hash reference' );
+ok( reftype($Read) eq 'HASH' ), '->read of what we wrote returns a hash reference' );
 isa_ok( $Read, 'Config::Tiny' );
 
 # Check the structure of what we read back in