X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F12-sig.t;h=662546d18e886e37d8191dfd8247d0bfb4f4ccce;hb=b43ca6c10beabb678914eb7845fed4abda6cd852;hp=636ad7e086d17b468ac47c2666c3cd6f6e54865e;hpb=c471e8c9f86ad8817761816101358f8ae1035915;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/12-sig.t b/t/12-sig.t
index 636ad7e..662546d 100644
--- a/t/12-sig.t
+++ b/t/12-sig.t
@@ -25,7 +25,7 @@ my ($a, $b, $c, $d) = 1 .. 4;
  is($sig, getsig $wiz2,  'retrieved wizard signature is correct');
 
  my $wiz3 = eval { wizard sig => [ ] };
- like($@, qr/Invalid\s+numeric\s+signature/, 'non numeric signature croaks');
+ like($@, qr/Invalid\s+numeric\s+signature\s+at\s+\Q$0\E/, 'non numeric signature croaks');
  is($wiz3, undef, 'non numeric signature doesn\'t return anything');
 
  my $a = 1;