[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Entry.pm,1.12,1.13

[Chris R. <chr...@us...>]

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

Modified Files:
	Entry.pm 
Log Message:
changes now returns an empty array if there were no changes.

Index: Entry.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Entry.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Entry.pm	3 Mar 2003 18:00:22 -0000	1.12
+++ Entry.pm	6 May 2003 16:26:15 -0000	1.13
@@ -310,7 +310,8 @@
 }
 
 sub changes {
-  @{shift->{'changes'}}
+  my $ref = shift->{'changes'};
+  $ref ? @$ref : ();
 }
 
 1;