Package: spamassassin Version: 3.3.2-6.1 Severity: minor Tags: patch Syslog currently is filled with tons of annoying warnings like:
Sep 20 08:04:24 klecker spamd[27782]: Use of each() on hash after insertion without resetting hash iterator results in undefined behavior, Perl interpreter: 0x13ae010 at /usr/share/perl5/Mail/SpamAssassin/AsyncLoop.pm line 363, <GEN231> line 184. It can be fixed with the included patch. -- System Information: Debian Release: jessie/sid APT prefers unstable APT policy: (500, 'unstable'), (500, 'testing'), (1, 'experimental') Architecture: amd64 (x86_64) Foreign Architectures: i386 Kernel: Linux 3.9-1-amd64 (SMP w/4 CPU cores) Locale: LANG=it_IT.UTF-8, LC_CTYPE=it_IT.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash Versions of packages spamassassin depends on: ii adduser 3.113+nmu3 pn libarchive-tar-perl <none> ii libhtml-parser-perl 3.71-1+b1 ii libnet-dns-perl 0.68-1.2 ii libnetaddr-ip-perl 4.062+dfsg-1+b1 ii libsocket6-perl 0.23-1+b3 ii libsys-hostname-long-perl 1.4-2 ii libwww-perl 6.05-1 ii perl 5.18.1-4 ii perl-modules [libio-zlib-perl] 5.18.1-4 Versions of packages spamassassin recommends: ii gcc 4:4.8.1-3 ii gnupg 1.4.14-1 ii libc6-dev 2.17-92+b1 ii libio-socket-inet6-perl 2.69-2 ii libmail-spf-perl 2.9.0-2 ii make 3.81-8.2 ii perl [libsys-syslog-perl] 5.18.1-4 ii re2c 0.13.5-1 ii spamc 3.3.2-6.1 Versions of packages spamassassin suggests: ii libdbi-perl 1.628-1+b1 ii libio-compress-perl [libcompress-zlib-perl] 2.061-1 ii libio-socket-ssl-perl 1.954-1 pn libmail-dkim-perl <none> pn libnet-ident-perl <none> ii perl [libcompress-zlib-perl] 5.18.1-4 pn pyzor <none> ii razor 1:2.85-4+b2 -- Configuration Files: /etc/default/spamassassin changed [not included] /etc/spamassassin/local.cf changed [not included] /etc/spamassassin/v320.pre changed [not included] -- no debconf information -- debsums errors found: debsums: changed file /usr/share/perl5/Mail/SpamAssassin/AsyncLoop.pm (from spamassassin package) -- Francesco P. Lovergine
--- AsyncLoop.pm.bak 2013-09-20 11:25:54.306894289 +0200 +++ AsyncLoop.pm 2013-09-20 11:25:07.925436408 +0200 @@ -360,7 +360,8 @@ } $now = time; # capture new timestamp, after possible sleep in 'select' - while (my($key,$ent) = each %$pending) { + my %p = %$pending; + while (my($key,$ent) = each %p) { my $id = $ent->{id}; if (defined $ent->{poll_callback}) { # call a "poll_callback" if exists # be nice, provide fresh info to a callback routine