File: perl-5.42-precedence.patch

package info (click to toggle)
libxml-stream-perl 1.24-6
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 976 kB
  • sloc: perl: 4,821; xml: 64; makefile: 4
file content (22 lines) | stat: -rw-r--r-- 709 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Description: Fix warnings with Perl 5.42.
  Possible precedence problem between ! and numeric eq (==) at /usr/share/perl5/XML/Stream/Parser.pm line 194.
Origin: vendor
Bug-Debian: https://bugs.debian.org/1113884
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-09-04
Forwarded: https://github.com/dap/XML-Stream/pull/31
Bug: https://github.com/dap/XML-Stream/pull/31

diff --git a/lib/XML/Stream/Parser.pm b/lib/XML/Stream/Parser.pm
index d250567..d1a4abe 100644
--- a/lib/XML/Stream/Parser.pm
+++ b/lib/XML/Stream/Parser.pm
@@ -190,7 +190,7 @@ sub parse
 
     $self->{PARSING} = 1;
 
-    if(!$self->{DOC} == 1)
+    if($self->{DOC} != 1)
     {
         my $start = index($self->{XML},"<");