More tests for different op types

[perl/modules/Variable-Magic.git] / t / 13-data.t

diff --git a/t/13-data.t b/t/13-data.t
index d1dc440200c0dd2a38cb72414ecd2ed6fac8ea9b..94e73e59bd49f5c2dfb7db734faaba24b155e999 100644 (file)
--- a/t/13-data.t
+++ b/t/13-data.t
@@ -54,7 +54,7 @@ is($@, '',       'getdata from invalid sig doesn\'t croak');
 is($data, undef, 'getdata from invalid sig returns undef');
 
 $data = eval { getdata $a, undef };
-like($@, qr/Invalid\s+wizard\s+object/, 'getdata from undef croaks');
+like($@, qr/Invalid\s+wizard\s+object\s+at\s+\Q$0\E/, 'getdata from undef croaks');
 is($data, undef, 'getdata from undef doesn\'t return anything');
 
 $res = eval { dispell $a, $wiz };