prints "Isa". Likewise if you give it $class instead of $obj. My advice would be to directly inspect the @ISA of the relevant class in the debugger at that point to make sure it's correct. Of course, I am assuming that SomeChild is actually supposed to be a child of SomeParent, which you don't state.package Classes::SomeParent; 1; package Classes::SomeChild; our @ISA=("Classes::SomeParent"); package main; my $class = 'Classes::SomeChild; my $obj = {}; bless $obj, 'Classes::SomeChild'; if ($obj->isa('Classes::SomeParent')) { print "Isa"; } else { print "Nota"; }
(NB: The "is_tainted" function in perlsec isn't doing what I expect it to -- to wit,
always claims that $obj is tainted.)print "Object is ". (is_tainted($obj) ? "not " : "") . "tainted";
Post some more, and maybe we can figure it out.
---
"I hate it when I think myself into a corner."
Matt Mitchell
In reply to Re: isa() and taint checking
by antifun
in thread isa() and taint checking
by webby
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |