Mailing List Archive

uninitialized value $result in string eq at AuthRes.pm line 302
Hi,

Just upgraded to fedora38, using the spamassassin included with it and have
the following warning:

Aug 19 23:02:27 xavier amavis[3615]: (03615-10) _WARN: Use of uninitialized
value $result in string eq at
/usr/share/perl5/vendor_perl/Mail/SpamAssassin/Plugin/AuthRes.pm line 302.

292 sub check_authres_result {
293 my ($self, $pms, $method, $wanted_result) = @_;
294
295 my $result = $pms->{authres_result}->{$method};
296 $wanted_result = lc($wanted_result);
297
298 if ($wanted_result eq 'missing') {
299 return !defined($result) ? 1 : 0;
300 }
301
302 return ($wanted_result eq $result);
303 }

Perhaps there's an interim fix?
Re: uninitialized value $result in string eq at AuthRes.pm line 302 [ In reply to ]
On 2023-08-19 at 23:07:48 UTC-0400 (Sat, 19 Aug 2023 23:07:48 -0400)
Alex <mysqlstudent@gmail.com>
is rumored to have said:

> Hi,
>
> Just upgraded to fedora38, using the spamassassin included with it and
> have
> the following warning:
>
> Aug 19 23:02:27 xavier amavis[3615]: (03615-10) _WARN: Use of
> uninitialized
> value $result in string eq at
> /usr/share/perl5/vendor_perl/Mail/SpamAssassin/Plugin/AuthRes.pm line
> 302.
>
> 292 sub check_authres_result {
> 293 my ($self, $pms, $method, $wanted_result) = @_;
> 294
> 295 my $result = $pms->{authres_result}->{$method};
> 296 $wanted_result = lc($wanted_result);
> 297
> 298 if ($wanted_result eq 'missing') {
> 299 return !defined($result) ? 1 : 0;
> 300 }
> 301
> 302 return ($wanted_result eq $result);
> 303 }
>
> Perhaps there's an interim fix?

Yes. Fixed in trunk by r1907983:

http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AuthRes.pm?r1=1907938&r2=1907937&pathrev=1907938


--
Bill Cole
bill@scconsult.com or billcole@apache.org
(AKA @grumpybozo and many *@billmail.scconsult.com addresses)
Not Currently Available For Hire
Re: uninitialized value $result in string eq at AuthRes.pm line 302 [ In reply to ]
Hi,

>
> Aug 19 23:02:27 xavier amavis[3615]: (03615-10) _WARN: Use of
> uninitialized value $result in string eq at
> /usr/share/perl5/vendor_perl/Mail/SpamAssassin/Plugin/AuthRes.pm line 302.
>
> 292 sub check_authres_result {
> 293 my ($self, $pms, $method, $wanted_result) = @_;
> 294
> 295 my $result = $pms->{authres_result}->{$method};
> 296 $wanted_result = lc($wanted_result);
> 297
> 298 if ($wanted_result eq 'missing') {
> 299 return !defined($result) ? 1 : 0;
> 300 }
> 301
> 302 return ($wanted_result eq $result);
> 303 }
>
> Perhaps there's an interim fix?
>
>
> Yes. Fixed in trunk by r1907983:
>
>
> http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AuthRes.pm?r1=1907938&r2=1907937&pathrev=1907938
>
Thank you - patch applied. Can you also help me with this one now?

Aug 20 18:46:57 xavier amavis[928452]: _WARN: deprecated method; size() is
an alias of "UDPsize()" at
/usr/share/perl5/vendor_perl/Mail/SpamAssassin/DnsResolver.pm line 602.

594 if ($packet) {
595 # RD flag needs to be set explicitly since Net::DNS 1.01, Bug
7223
596 $packet->header->rd(1);
597
598 # my $udp_payload_size = $self->{res}->udppacketsize;
599 my $udp_payload_size = $self->{conf}->{dns_options}->{edns};
600 if ($udp_payload_size && $udp_payload_size > 512) {
601 # dbg("dns: adding EDNS ext, UDP payload size %d",
$udp_payload_size);
602 $packet->edns->size($udp_payload_size);
603 }
604 }

I plan to rebuild locally with the latest, but need to fix a bunch of
dependencies here first.