| Subject: | Rose::HTML::Form failure in Perl debugger (with patch) |
I had the same issue as described in bug #51168. I dug around a bit and found that it ends
up deep inside of Rose::Object::MakeMethods. Under the debugger, what was formerly being
returned as __ANON__ from sub_identity ends up something like
"__ANON__[/opt/local/lib/perl5/site_perl/5.10.1/darwin-2level/some/module.pm:123]",
leading to attempts to redefine methods. I don't truly understand the guts there, but this
simple patch creates the appearance of a fix:
--- MakeMethods.pm-orig 2010-02-09 11:13:43.000000000 -0500
+++ MakeMethods.pm 2010-02-09 11:15:02.000000000 -0500
@@ -163,7 +163,7 @@
my($class, $code) = @_;
my($mm_class, $name) = $class->sub_identity($code);
return 0 unless($class && $name);
- return (($mm_class eq $class && $name eq '__ANON__') ||
+ return (($mm_class eq $class && $name =~ /^__ANON__/) ||
$Made_Method_Custom{$mm_class}{$name}) ? 1 : 0;
}
I'm hoping you can take a look at some point.
Thanks,
Chris