From 7e32d920ecd6beafdd83b53fc9051cd53274c6d9 Mon Sep 17 00:00:00 2001
From: Jean-Philippe Pialasse <jpp@koozali.org>
Date: Wed, 15 Jan 2025 22:27:19 -0500
Subject: [PATCH] * Wed Jan 15 2025 Jean-Philippe Pialasse <jpp@koozali.org>
 0.93-9.sme - fix warning CGI::param called in list context [SME: 12608]

---
 perl-CGI-FormMagick-0.93-fetching.patch | 21 +++++++++++++++++++++
 perl-CGI-FormMagick.spec                |  7 ++++++-
 2 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 perl-CGI-FormMagick-0.93-fetching.patch

diff --git a/perl-CGI-FormMagick-0.93-fetching.patch b/perl-CGI-FormMagick-0.93-fetching.patch
new file mode 100644
index 0000000..b346085
--- /dev/null
+++ b/perl-CGI-FormMagick-0.93-fetching.patch
@@ -0,0 +1,21 @@
+diff -Nur perl-CGI-FormMagick-0.93.old/lib/CGI/FormMagick.pm perl-CGI-FormMagick-0.93/lib/CGI/FormMagick.pm
+--- perl-CGI-FormMagick-0.93.old/lib/CGI/FormMagick.pm	2013-01-25 12:31:36.000000000 -0500
++++ perl-CGI-FormMagick-0.93/lib/CGI/FormMagick.pm	2025-01-15 22:08:49.443102653 -0500
+@@ -467,7 +467,7 @@
+             $self->cgi->delete('wherenext');
+         }
+     }
+-    return $self->cgi->param('wherenext');
++    return scalar $self->cgi->param('wherenext');
+ }
+ 
+ =head2 $fm->go_to_finish()
+@@ -1017,7 +1017,7 @@
+     my $fm = shift;
+     my $cgi = $fm->{cgi};
+ 
+-    my $fn = $fm->{sessiondir}.'/'.fileparse($cgi->param('.id'));
++    my $fn = $fm->{sessiondir}.'/'.fileparse(scalar $cgi->param('.id'));
+     my $po = new Persistence::Object::Simple __Fn => $fn;
+ 
+     my @names = $cgi->param ();
diff --git a/perl-CGI-FormMagick.spec b/perl-CGI-FormMagick.spec
index 1dc2420..a19ebb6 100644
--- a/perl-CGI-FormMagick.spec
+++ b/perl-CGI-FormMagick.spec
@@ -3,7 +3,7 @@
 Summary: CGI-FormMagick module for perl
 %define name perl-CGI-FormMagick
 %define version 0.93
-%define release 8
+%define release 9
 Name: %{name}
 Version: %{version}
 Release: %{release}%{?dist}
@@ -15,6 +15,7 @@ Patch2: perl-CGI-FormMagick-0.93-bz10210-uninitialized_what_to_make.patch
 Patch3: perl-CGI-FormMagick-0.93-csrf.patch
 Patch4: perl-CGI-FormMagick-CSRFtimeout.patch
 Patch5: perl-CGI-FormMagick-0.93-bz10902-csrf-timeout.patch
+Patch6: perl-CGI-FormMagick-0.93-fetching.patch
 Url: http://www.cpan.org
 BuildRoot: /var/tmp/perl-CGI-FormMagick-buildroot/
 BuildArchitectures: noarch
@@ -47,6 +48,7 @@ to generate HTML wizard-like forms.  It has support for I18N/L10N.
 %patch3 -p1
 %patch4 -p1
 %patch5 -p1
+%patch6 -p1
 
 %build
 grep -rsl '^#!.*perl' . |
@@ -83,6 +85,9 @@ find $RPM_BUILD_ROOT/usr -type f -print | sed "s@^$RPM_BUILD_ROOT@@g" | grep -v
 %defattr(-,root,root)
 
 %changelog
+* Wed Jan 15 2025 Jean-Philippe Pialasse <jpp@koozali.org> 0.93-9.sme
+- fix warning CGI::param called in list context [SME: 12608]
+
 * Fri Jul 14 2023 BogusDateBot
 - Eliminated rpmbuild "bogus date" warnings due to inconsistent weekday,
   by assuming the date is correct and changing the weekday.