[svk-commit] r2465 - trunk/t/api

[nobody at bestpractical.com]

Author: clkao
Date: Mon Jul 16 21:36:40 2007
New Revision: 2465

Modified:
   trunk/t/api/root.t

Log:
Class::ISA shouldn't be called.

Modified: trunk/t/api/root.t
==============================================================================
--- trunk/t/api/root.t	(original)
+++ trunk/t/api/root.t	Mon Jul 16 21:36:40 2007
@@ -7,7 +7,6 @@
 
 use Scalar::Util qw(reftype blessed);
 use Digest::MD5 qw(md5_hex);
-use Class::ISA;    # diags only
 use Data::Dumper;  # diags only
 
 
@@ -309,7 +308,7 @@
 
 sub show_isa {
     my $class = ref $_[0] || $_[0];
-
+    require Class::ISA;
 
     diag "$class ISA : ".join(" ", Class::ISA::super_path($class));
 }
@@ -326,7 +325,7 @@
 if ( blessed($what) ) {
     diag "methods in ".ref($what).":";
     diag "  $_" for sort keys(%{ref($what)."::"});
-    show_isa($what);
+#    show_isa($what);
 }
     }
     else {