OK. Something must be screwing up the tainting of $file, because if you change that isa test into this

$file =~ /(.*)/;
my $ff = $1;
if ($ff->isa('Objects::Parent')) {
[download]

it works as you'd expect.

Now, I don't really know why this is the case. The Taint module's tainted function says $file isn't tainted. No error is ever seen, it just silently fails. My tests are on 5.6.1. Anyone have any better idea what's going on here?
---
"I hate it when I think myself into a corner."
Matt Mitchell