[perl-ldap-checkins] CVS: asn/lib/Convert/ASN1 _encode.pm,1.14,1.15

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/asn/lib/Convert/ASN1
In directory usw-pr-cvs1:/tmp/cvs-serv25775/lib/Convert/ASN1

Modified Files:
	_encode.pm 
Log Message:
Use ::isa to determine if stash argument is a HASH


Index: _encode.pm
===================================================================
RCS file: /cvsroot/perl-ldap/asn/lib/Convert/ASN1/_encode.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- _encode.pm	10 Feb 2002 16:12:17 -0000	1.14
+++ _encode.pm	15 Feb 2002 06:51:45 -0000	1.15
@@ -53,9 +53,9 @@
     &{$encode[$op->[cTYPE]]}(
       $optn,
       $op,
-      (ref($stash) ne 'HASH'
-	? ({}, $stash)
-	: ($stash, defined($var) ? $stash->{$var} : undef)),
+      (UNIVERSAL::isa($stash, 'HASH')
+	? ($stash, defined($var) ? $stash->{$var} : undef)
+	: ({}, $stash)),
       $_[4],
       $op->[cLOOP],
       $path,