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,
|
