Bug#1023479: FTBFS: t/01struct.t fails

[Steve Langasek]

Package: libobject-pad-classattr-struct-perl
Version: 0.03-1
Followup-For: Bug #1023479
User: ubuntu-devel at 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/
slangasek at ubuntu.com                                     vorlon at debian.org
-------------- next part --------------
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.langasek at 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' );
+ }
+