Index: t/collection/Config-Tiny/t/02_main.t
===================================================================
--- t/collection/Config-Tiny/t/02_main.t	(revision 16185)
+++ t/collection/Config-Tiny/t/02_main.t	(working copy)
@@ -9,7 +9,7 @@
 	$^W = 1;
 }
 
-use UNIVERSAL;
+use Scalar::Util 'reftype';
 use Test::More tests => 33;
 
 use vars qw{$VERSION};
@@ -32,8 +32,7 @@
 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,8 +41,7 @@
 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,8 +102,7 @@
 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