Enlightenment CVS committal
Author : leviathan
Project : e17
Module : proto
Dir : e17/proto/etk-perl/lib/Etk
Modified Files:
Object.pm
Log Message:
- etk_test is working correctly again.
===================================================================
RCS file: /cvs/e/e17/proto/etk-perl/lib/Etk/Object.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -3 -r1.10 -r1.11
--- Object.pm 30 Jul 2006 19:22:32 -0000 1.10
+++ Object.pm 4 Aug 2006 17:23:01 -0000 1.11
@@ -14,14 +14,15 @@
# print "DECODED AS Package=$package FUNCTION=$func\n";
if ($func =~ /[a-z]/ && $func =~ /[A-Z]/) {
- $func =~ s/([A-Z][a-z]+)/lc($1) . "_"/eg;
+ $func =~ s/([A-Z][a-z0-9]+)/lc($1) . "_"/eg;
$func =~ s/_$//;
# print "\tTranslate to $func\n";
my $obj = shift;
# print "Object: $obj -> $func (@_)\n";
- return $obj->$func(@_);
+ return $obj->$func(@_) if $obj->can($func);
+ die "Object $obj does not have method $func\n"; # fail with some
noise
}
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
enlightenment-cvs mailing list
enlightenment-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/enlightenment-cvs
