File: perl-5.42-precedence.patch

package info (click to toggle)
libdata-javascript-perl 1.15-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 288 kB
  • sloc: perl: 319; makefile: 5
file content (20 lines) | stat: -rw-r--r-- 813 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 lt (<) at /build/libdata-javascript-perl-1.15/blib/lib/Data/JavaScript.pm line 25.
Origin: vendor
Bug-Debian: https://bugs.debian.org/1113873
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-09-03
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=169509
Bug: https://rt.cpan.org/Ticket/Display.html?id=169509

--- a/lib/Data/JavaScript.pm
+++ b/lib/Data/JavaScript.pm
@@ -22,7 +22,7 @@
 # This is a context variable which holds on to configs.
 my %opt = ( JS => $JSCOMPAT_DEFAULT_VERSION );  # TODO: This is super out-dated.
 
-if ( !$] < $MIN_ENCODE_REQUIRE_BREAKPOINT ) { require Encode; }
+if ( $] >= $MIN_ENCODE_REQUIRE_BREAKPOINT ) { require Encode; }
 
 sub import {
   my ( $package, @args ) = @_;