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

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

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

Modified Files:
	LDIF.pm 
Log Message:
Ensure dashes are only output between parts of an LDAP update entry


Index: LDIF.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- LDIF.pm	2001/10/08 18:03:08	1.12
+++ LDIF.pm	2001/10/29 16:48:12	1.13
@@ -376,6 +376,7 @@
         next;
       }
 
+      my $dash=0;
       foreach my $chg (@changes) {
         unless (ref($chg)) {
           $type = $chg;
@@ -383,11 +384,11 @@
         }
         my $i = 0;
         while ($i < @$chg) {
+	  print "-\n" if $dash++;
           my $attr = $chg->[$i++];
           my $val = $chg->[$i++];
           print $type,": ",$attr,"\n";
           _write_attr($attr,$val,$wrap,$lower);
-	  print "-\n";
         }
       }
     }