commit texinfo for openSUSE:Factory

[Source-Sync]

Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package texinfo for openSUSE:Factory checked 
in at 2025-07-15 16:41:21
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/texinfo (Old)
 and      /work/SRC/openSUSE:Factory/.texinfo.new.7373 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "texinfo"

Tue Jul 15 16:41:21 2025 rev:73 rq:1293113 version:7.1

Changes:
--------
--- /work/SRC/openSUSE:Factory/texinfo/texinfo.changes  2025-04-08 
17:49:54.623174182 +0200
+++ /work/SRC/openSUSE:Factory/.texinfo.new.7373/texinfo.changes        
2025-07-15 16:41:22.817833587 +0200
@@ -1,0 +2,16 @@
+Mon Jul 14 09:21:36 UTC 2025 - Dominique Leuenberger <dims...@opensuse.org>
+
+- Add texinfo-perl-5.42.patch: Fix syntax to be unambiguous
+  if (! $str eq '') is not really clear; is it
+    (!$str) eq ''
+  or
+    !($str eq '')
+  Perl 5.42 rightly flagges this syntax with:
+    Possible precedence problem between ! and string eq
+
+  Assuming !($str eq '') was meant, we can rewrite this as
+  $str ne '', which happens to also be used in multiple places
+  already (sometimes just a few lines further down in the same
+  files)
+
+-------------------------------------------------------------------

New:
----
  texinfo-perl-5.42.patch

----------(New B)----------
  New:
- Add texinfo-perl-5.42.patch: Fix syntax to be unambiguous
  if (! $str eq '') is not really clear; is it
----------(New E)----------

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ texinfo.spec ++++++
--- /var/tmp/diff_new_pack.b3Qs8m/_old  2025-07-15 16:41:23.713871012 +0200
+++ /var/tmp/diff_new_pack.b3Qs8m/_new  2025-07-15 16:41:23.713871012 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package texinfo
 #
-# Copyright (c) 2024 SUSE LLC
+# Copyright (c) 2025 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -30,6 +30,7 @@
 Source42:       %{name}-rpmlintrc
 Patch0:         texinfo-zlib.patch
 Patch1:         install-info_exitcode.patch
+Patch2:         texinfo-perl-5.42.patch
 BuildRequires:  automake
 BuildRequires:  glibc-locale
 BuildRequires:  help2man


++++++ texinfo-perl-5.42.patch ++++++
Index: texinfo-7.1/tp/Texinfo/Convert/DocBook.pm
===================================================================
--- texinfo-7.1.orig/tp/Texinfo/Convert/DocBook.pm
+++ texinfo-7.1/tp/Texinfo/Convert/DocBook.pm
@@ -340,7 +340,7 @@ sub output($$)
 
   my $fh;
   my $encoded_output_file;
-  if (! $output_file eq '') {
+  if ($output_file ne '') {
     my $path_encoding;
     ($encoded_output_file, $path_encoding)
       = $self->encoded_output_file_name($output_file);
Index: texinfo-7.1/tp/Texinfo/Convert/Info.pm
===================================================================
--- texinfo-7.1.orig/tp/Texinfo/Convert/Info.pm
+++ texinfo-7.1/tp/Texinfo/Convert/Info.pm
@@ -100,7 +100,7 @@ sub output($)
   my $tree_units = Texinfo::Structuring::split_by_node($root);
 
   my $fh;
-  if (! $output_file eq '') {
+  if ($output_file ne '') {
     if ($self->get_conf('VERBOSE')) {
       print STDERR "Output file $output_file\n";
     }
Index: texinfo-7.1/tp/Texinfo/Convert/LaTeX.pm
===================================================================
--- texinfo-7.1.orig/tp/Texinfo/Convert/LaTeX.pm
+++ texinfo-7.1/tp/Texinfo/Convert/LaTeX.pm
@@ -1065,7 +1065,7 @@ sub output($$)
 
   my $fh;
   my $encoded_output_file;
-  if (! $output_file eq '') {
+  if ($output_file ne '') {
     my $path_encoding;
     ($encoded_output_file, $path_encoding)
       = $self->encoded_output_file_name($output_file);
Index: texinfo-7.1/tp/Texinfo/Convert/TexinfoMarkup.pm
===================================================================
--- texinfo-7.1.orig/tp/Texinfo/Convert/TexinfoMarkup.pm
+++ texinfo-7.1/tp/Texinfo/Convert/TexinfoMarkup.pm
@@ -298,7 +298,7 @@ sub output($$)
 
   my $fh;
   my $encoded_output_file;
-  if (! $output_file eq '') {
+  if ($output_file ne '') {
     my $path_encoding;
     ($encoded_output_file, $path_encoding)
       = $self->encoded_output_file_name($output_file);