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

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

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

Modified Files:
	Entry.pm 
Log Message:
Don't print a dn: line if there is not DN (ie RootDSE)


Index: Entry.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Entry.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- Entry.pm	6 May 2003 16:26:15 -0000	1.13
+++ Entry.pm	9 May 2003 11:56:17 -0000	1.14
@@ -9,7 +9,7 @@
 use Net::LDAP::Constant qw(LDAP_LOCAL_ERROR);
 use vars qw($VERSION);
 
-$VERSION = "0.19";
+$VERSION = "0.20";
 
 sub new {
   my $self = shift;
@@ -265,7 +265,7 @@
 
   my $asn = $self->{asn};
   print "-" x 72,"\n";
-  print "dn:",$asn->{objectName},"\n\n";
+  print "dn:",$asn->{objectName},"\n\n" if $asn->{objectName};
 
   my($attr,$val);
   my $l = 0;