44 lines
1.3 KiB
Diff
44 lines
1.3 KiB
Diff
Date: Tue, 13 Jul 2021 06:22:57 -0400
|
|
From: Paul Evans via RT <bug-Future-AsyncAwait@rt.cpan.org>
|
|
To: ppisar@redhat.com
|
|
Subject: [rt.cpan.org #137589] XS-Parse-Keyword-Builder-0.09 breaks t/32compile-errors.t: Failed test 'Failure message complains about undeclared $api'
|
|
|
|
<URL: https://rt.cpan.org/Ticket/Display.html?id=137589 >
|
|
|
|
Patched. Will be in next version
|
|
|
|
=== modified file 't/32compile-errors.t'
|
|
--- old/t/32compile-errors.t 2020-07-06 21:44:29 +0000
|
|
+++ new/t/32compile-errors.t 2021-07-13 09:43:42 +0000
|
|
@@ -7,6 +7,8 @@
|
|
|
|
use Future::AsyncAwait;
|
|
|
|
+use constant HAVE_XPK_0_09 => ( $XS::Parse::Keyword::VERSION >= 0.09 );
|
|
+
|
|
# All of these should fail to compile but not SEGV. If we get to the end of
|
|
# the script without segfaulting, we've passed.
|
|
|
|
@@ -69,6 +71,10 @@
|
|
{
|
|
local $@;
|
|
|
|
+ my $err = HAVE_XPK_0_09 ?
|
|
+ qr/^parse failed--compilation aborted / :
|
|
+ qr/^Global symbol "\$api" requires explicit package name/;
|
|
+
|
|
ok( !defined eval q'
|
|
package segfault;
|
|
use strict;
|
|
@@ -82,8 +88,7 @@
|
|
})->()->get;
|
|
',
|
|
'RT131487 strict-failing code fails to compile' );
|
|
- like( "$@", qr/^Global symbol "\$api" requires explicit package name/,
|
|
- 'Failure message complains about undeclared $api' );
|
|
+ like( "$@", $err, 'Failure message complains about undeclared $api' );
|
|
}
|
|
|
|
done_testing;
|
|
|