Fix some croak backtraces

[perl/modules/Sub-Prototype-Util.git] / t / 11-wrap.t

diff --git a/t/11-wrap.t b/t/11-wrap.t
index 47fd20ecbc587f536cf2fb8e17b5dbac7b2b0dac..7e013235733bd79b42ad8110beee09d77f3f2a3f 100644 (file)
--- a/t/11-wrap.t
+++ b/t/11-wrap.t
@@ -132,4 +132,4 @@ if ($^V ge v5.10.0) {
 }
 
 eval { wrap { 'main::dummy' => '\[@%]' }, ref => 'shift' };
-like($@, qr/to\s+shift\s+must\s+be\s+array/, 'invalid eval code croaks');
+like($@, qr/to\s+shift\s+must\s+be\s+array +\([\w ]+\) +at\s+\Q$0\E/, 'invalid eval code croaks');