LRMK wrote:
>   if ($hash{$k} =~ m/=HASH/){

   if (ref($hash{$k}) eq 'HASH') {

perldoc -f ref

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to