From 83bca19f80ea0deef4034e80a559ffa88da44a1a Mon Sep 17 00:00:00 2001
From: Andrew Wnuk <awnuk@redhat.com>
Date: Wed, 30 May 2012 14:03:51 -0700
Subject: PerLDAP workaround

Ticket #373

This fix just appends a dummy value to the array, which consumes the error 53.
Patch provided by mreynolds.
---
 base/tps/lib/perl/PKI/TPS/Common.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'base')

diff --git a/base/tps/lib/perl/PKI/TPS/Common.pm b/base/tps/lib/perl/PKI/TPS/Common.pm
index c66942599..5b078d882 100755
--- a/base/tps/lib/perl/PKI/TPS/Common.pm
+++ b/base/tps/lib/perl/PKI/TPS/Common.pm
@@ -65,9 +65,8 @@ sub add_schema_update
 
     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();
-- 
cgit