Your message dated Thu, 24 Jul 2025 12:13:02 +0200
with message-id <[email protected]>
and subject line Bug#310230: fixed in libldbd-ldap-perl 0.20-1.1
has caused the Debian Bug report #310230,
regarding always produces warning on statement preparation and disconnect
to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact [email protected]
immediately.)


-- 
310230: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=310230
Debian Bug Tracking System
Contact [email protected] with problems
--- Begin Message ---
Package: libdbd-ldap-perl
Version: 0.05-1
Severity: normal

hi,

attached code always produces the following warnings:

 DBD::LDAP::db prepare warning:  at test.pl line 6, <DATA> line 283.
  [.. output of received data ..]
 DBD::LDAP::db disconnect warning:  at test.pl line 19, <DATA> line 283.

the first warning is caused by the following statement, line 288,
LDAP.pl:

   LDAP.pl:288:  DBI::set_err($resptr, 0, '');

commenting it out makes the warning go away. Setting the error to
nothing doesnt make any sense to me (maybe upstream wants to hide a
error here?).

Same for the other warning in the disconnect function, line 451.

bye,
    - michael
#!/usr/bin/perl
use DBI;
use strict;
my   $dbh = DBI->connect("DBI:LDAP:bugs.debian.org")  
      or die "Cannot connect as guest (readonly): " . $DBI::errstr;
my  $sth = $dbh->prepare("select * from bugs where (debbugsSubmitter like '%Ablassmeier%')")
      or die "Cannot prepare: " . $dbh->errstr();
$sth->execute() or die "Cannot execute: " . $sth->errstr();
my $cnt;     
while ((my @results) = $sth->fetchrow_array)
{
  print "--------------------------------------------------------\n";
  ++$cnt;
  while (@results) {
    print "------>".join('|',split(/\0/, shift(@results)))."\n";
  }
}
$sth->finish();
$dbh->disconnect();
bugs.debian.org
bugs:dc=bugs,dc=debian,dc=org:(objectclass=debbugsbug):cn:cn,debbugsid,debbugsdate,debbugsSubmitter,debbugsDate,debbugsTitle,debbugsPackage

--- End Message ---
--- Begin Message ---
Source: libdbd-ldap-perl
Source-Version: 0.20-1.1
Done: Roland Rosenfeld <[email protected]>

On Wed, 23 Jul 2025, Andreas Tille wrote:

> $ ls -l
> insgesamt 8
> -rw-r--r-- 1 andreas admin 156 23. Jul 14:18 bugs.debian.org.ldb
> -rw-r--r-- 1 andreas admin 632 23. Jul 14:18 test.pl
> $ perl test.pl 
> Could not connect to "bugs.debian.org" (Connection refused)! at
> /usr/share/perl5/DBD/LDAP.pm line 534, <DBFILE> line 2.
> DBI connect('bugs.debian.org','',...) failed: Could not connect to
> "bugs.debian.org" (Connection refused)! at test.pl line 4.
> Cannot connect as guest (readonly): Could not connect to
> "bugs.debian.org" (Connection refused)! at test.pl line 4, <DBFILE>
> line 2.

The root cause for reproducibility of the issue seems to be, that
bugs.debian.org does not have an LDAP interface.  There was one in the
early 2000s (see for example
https://lists.debian.org/debian-devel/2004/03/msg00388.html), which
may have existed, when this bug report was issued, but which no longer
exists.  So the test case is no longer valid.  As a replacement I
coded a similar test case based on db.debian.org  (files attached).

This test doesn't throw any warnings, neither with 0.20-1.1 nor with
1.00-1.

Then I pulled 0.05-1 from snapshot.debian.org and with this ancient
version I can reproduce the following warnings:
DBD::LDAP::db prepare warning:  at ./test-db.pl line 6, <DBFILE> line 2.
(before the output)
DBD::LDAP::db disconnect warning:  at ./test-db.pl line 19, <DBFILE> line 2.
(after the output).

So from my perspective 310230 is fixed at least in 0.20-1.1 and I
close this bug report.

Greetings
Roland
db.debian.org
users:ou=users,dc=debian,dc=org:(objectclass=inetOrgPerson):uid:uid:cn,sn,gecos,uidNumber,keyFingerPrint,gidNumber,ircNic,labeledURI

Attachment: test-db.pl
Description: Perl program


--- End Message ---

Reply via email to