Package: libobject-pad-classattr-struct-perl
Version: 0.03-1
Followup-For: Bug #1023479
User: ubuntu-de...@lists.ubuntu.com
Usertags: origin-ubuntu lunar ubuntu-patch
Control: tags -1 patch
Hi Gregor,
This failure is simply due to a string change in the exception output from
new libobject-pad-perl. The attached patch fixes the build to look for the
new string with quotes. Please consider applying in Debian.
It has been uploaded to Ubuntu to unblock the perl 5.36 transition there.
Cheers,
--
Steve Langasek Give me a lever long enough and a Free OS
Debian Developer to set it on, and I can move the world.
Ubuntu Developer https://www.debian.org/
slanga...@ubuntu.com vor...@debian.org
diff -Nru libobject-pad-classattr-struct-perl-0.03/debian/patches/series
libobject-pad-classattr-struct-perl-0.03/debian/patches/series
--- libobject-pad-classattr-struct-perl-0.03/debian/patches/series
1969-12-31 16:00:00.000000000 -0800
+++ libobject-pad-classattr-struct-perl-0.03/debian/patches/series
2022-12-11 00:08:53.000000000 -0800
@@ -0,0 +1 @@
+updated-exception-formatting.patch
diff -Nru
libobject-pad-classattr-struct-perl-0.03/debian/patches/updated-exception-formatting.patch
libobject-pad-classattr-struct-perl-0.03/debian/patches/updated-exception-formatting.patch
---
libobject-pad-classattr-struct-perl-0.03/debian/patches/updated-exception-formatting.patch
1969-12-31 16:00:00.000000000 -0800
+++
libobject-pad-classattr-struct-perl-0.03/debian/patches/updated-exception-formatting.patch
2022-12-11 00:10:33.000000000 -0800
@@ -0,0 +1,21 @@
+Description: update matching string for exception in test case
+ libobject-pad-perl 0.74-1 has added quotes around a variable in its
+ exception string, causing a test failure. Update the string match to
+ work with the current version.
+Author: Steve Langasek <steve.langa...@ubuntu.com>
+Last-Update: 2022-12-11
+Forwarded: no
+
+Index: libobject-pad-classattr-struct-perl-0.03/t/01struct.t
+===================================================================
+--- libobject-pad-classattr-struct-perl-0.03.orig/t/01struct.t
++++ libobject-pad-classattr-struct-perl-0.03/t/01struct.t
+@@ -27,7 +27,7 @@
+ ok( !defined eval { Example->new( x => 0, y => 0, w => "no" ) },
+ 'Example constructor does not like w param' );
+ my $e = $@;
+- like( $e, qr/^Unrecognised parameters for Example constructor: w /,
++ like( $e, qr/^Unrecognised parameters for Example constructor: 'w' /,
+ 'exception from Example constructor param failure' );
+ }
+
