X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Prototype-Util.git;a=blobdiff_plain;f=t%2F11-wrap.t;h=7e013235733bd79b42ad8110beee09d77f3f2a3f;hp=47fd20ecbc587f536cf2fb8e17b5dbac7b2b0dac;hb=92b328c090598b186ee6dd5168ca4b5047a834c9;hpb=06a00e8349c4f0c7b7388af0dbfcd562721e8d43

diff --git a/t/11-wrap.t b/t/11-wrap.t
index 47fd20e..7e01323 100644
--- 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');