# HG changeset patch
# User wizard
# Date 1285600534 -14400
# Node ID 3765adf1803fc37efcb90ec0eb59f2e6da00682c
# Parent  1e7f03414b65f726f89b0561bf463ac899f5a115
minor fixes

diff -r 1e7f03414b65 -r 3765adf1803f Lib/IMPL/Class/Meta.pm
--- a/Lib/IMPL/Class/Meta.pm	Thu Sep 23 03:58:43 2010 +0400
+++ b/Lib/IMPL/Class/Meta.pm	Mon Sep 27 19:15:34 2010 +0400
@@ -65,7 +65,7 @@
 	exists $class_data{$_}{$name} and return $class_data{$_}{$name}	foreach @{"${class}::ISA"};
 		
 	my $val;
-	$val = $_->_find_class_data($name) and return $val foreach @{"${class}::ISA"}; 
+	$val = $_->can('_find_class_data') ? $_->_find_class_data($name) : undef and return $val foreach @{"${class}::ISA"}; 
 }
 
 1;