File: perl-5.42-precedence.patch

package info (click to toggle)
libmath-base-convert-perl 0.11-6
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 336 kB
  • sloc: perl: 870; makefile: 2
file content (20 lines) | stat: -rw-r--r-- 795 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Description: Fix warning with perl 5.42.
 Possible precedence problem between ! and numeric gt (>) at /usr/share/perl5/Math/Base/Convert.pm line 257.
Origin: vendor
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=168226
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=168226
Bug-Debian: https://bugs.debian.org/1113881
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-09-05

--- a/Convert.pm
+++ b/Convert.pm
@@ -254,7 +254,7 @@
 # if a large base and digit string will fit in a single 32 bit register
     elsif ( $fblen > 32 &&		# big base
 #	    exists $maxdlen{$fbase} &&	# has to exist
-	  ! $slen > $maxdlen{$fbase}) {
+	  $slen <= $maxdlen{$fbase}) {
       $bc->useFROMbaseto32wide;		# CalcPP is faster
     }
     else {				# shortcuts faster for big numbers