summaryrefslogtreecommitdiffstats
path: root/base
diff options
context:
space:
mode:
authorAndrew Wnuk <awnuk@redhat.com>2012-05-30 14:03:51 -0700
committerAndrew Wnuk <awnuk@redhat.com>2012-05-30 14:03:51 -0700
commit83bca19f80ea0deef4034e80a559ffa88da44a1a (patch)
treeb538e96b3ced36c606e95ed13aeb83213d114fe6 /base
parentdea08dd220858fa067d1975dc82e5b182351d276 (diff)
downloadpki-83bca19f80ea0deef4034e80a559ffa88da44a1a.tar.gz
pki-83bca19f80ea0deef4034e80a559ffa88da44a1a.tar.xz
pki-83bca19f80ea0deef4034e80a559ffa88da44a1a.zip
PerLDAP workaround
Ticket #373 This fix just appends a dummy value to the array, which consumes the error 53. Patch provided by mreynolds.
Diffstat (limited to 'base')
-rwxr-xr-xbase/tps/lib/perl/PKI/TPS/Common.pm5
1 files changed, 2 insertions, 3 deletions
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();