[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.42,1.43

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

Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory sc8-pr-cvs1:/tmp/cvs-serv16689/lib/Net

Modified Files:
	LDAP.pm 
Log Message:
Fix ->modify to not require the value in ->modify( add => [ attr => value ] )
to be an array reference


Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- LDAP.pm	6 May 2003 15:47:37 -0000	1.42
+++ LDAP.pm	6 May 2003 16:09:18 -0000	1.43
@@ -430,7 +430,7 @@
 	    operation => $opcode,
 	    modification => {
 	      type => $attr,
-	      vals => $val
+	      vals => ref($val) ? $val : [$val]
 	    }
 	  };
 	}