[svk-commit] r2466 - in branches/i18n-fixes: .

nobody at bestpractical.com nobody at bestpractical.com
Mon Jul 16 21:37:28 EDT 2007


Author: clkao
Date: Mon Jul 16 21:37:28 2007
New Revision: 2466

Modified:
   branches/i18n-fixes/   (props changed)
   branches/i18n-fixes/t/api/root.t

Log:
merge down for i18n fixes branch.

Modified: branches/i18n-fixes/t/api/root.t
==============================================================================
--- branches/i18n-fixes/t/api/root.t	(original)
+++ branches/i18n-fixes/t/api/root.t	Mon Jul 16 21:37:28 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 {


More information about the svk-commit mailing list