[Pki-devel] PerLDAP patch

[Andrew Wnuk]

This is a work around for PerLDAP issue provided by Mark.

Ticket #373.


-------------- next part --------------
Index: pki/base/tps/lib/perl/PKI/TPS/Common.pm
===================================================================
--- pki/base/tps/lib/perl/PKI/TPS/Common.pm	(revision 2419)
+++ pki/base/tps/lib/perl/PKI/TPS/Common.pm	(working copy)
@@ -65,9 +65,8 @@
 
     foreach my $attr (@addtypes) {
         my @vals = $aentry->getValues($attr);
-        push @vals, $vals[0];          # HACK! for some reason, first value always fails with server unwilling to perform
-
-        foreach my $val (@vals) {
+        my @values = ("dummyAttr: dummy value", @vals); # this dummy entry consumes the error 53
+        foreach my $val (@values) {
             $sentry->addValue( $attr, $val );
             $conn->update($sentry);
             my $rc = $conn->getErrorCode();