Your code doesn't make any sense. Here's what I assume you are trying to do (which actually works when you run it, a characteristic that is useful for trying things out):
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"; }
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.

(NB: The "is_tainted" function in perlsec isn't doing what I expect it to -- to wit,

print "Object is ". (is_tainted($obj) ? "not " : "") . "tainted";
always claims that $obj is 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

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.