Mailing List Archive

svn commit: r1900979 - /spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
Author: hege
Date: Tue May 17 05:58:09 2022
New Revision: 1900979

URL: http://svn.apache.org/viewvc?rev=1900979&view=rev
Log:
Add local($1) just in case

Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm?rev=1900979&r1=1900978&r2=1900979&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Util.pm Tue May 17 05:58:09 2022
@@ -1011,6 +1011,7 @@ sub base32_encode {
utf8::encode($str) if utf8::is_utf8($str); # force octets
my $bits = unpack("B*", $str)."0000";
my $output;
+ local($1);
$output .= $base32_bitchr{$1} while ($bits =~ /(.{5})/g);
return $output;
}