if($file =~ /^(\w*\.pm)$/) { $file = $1; $file = $directory."/".$file; require $file; $file =~ s/\//::/g; $file =~ s/\.pm$//; if ($file->isa('Objects::Parent')) { my $object = $file->new(); $object->doSomething(); } }
In reply to Re: Re: isa() and taint checking
by webby
in thread isa() and taint checking
by webby
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |