diff options
| author | Andrew Wnuk <awnuk@redhat.com> | 2012-05-30 14:03:51 -0700 |
|---|---|---|
| committer | Andrew Wnuk <awnuk@redhat.com> | 2012-05-30 14:03:51 -0700 |
| commit | 83bca19f80ea0deef4034e80a559ffa88da44a1a (patch) | |
| tree | b538e96b3ced36c606e95ed13aeb83213d114fe6 /base | |
| parent | dea08dd220858fa067d1975dc82e5b182351d276 (diff) | |
| download | pki-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-x | base/tps/lib/perl/PKI/TPS/Common.pm | 5 |
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(); |