diff options
Diffstat (limited to 'base/tps/lib')
-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(); |