X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstrict.t;h=a58183d6afd39c0134b476ad07e57983330437b8;hb=6c34b444e998a67cbaf7c3d2a31c347e54a52c59;hp=4ebc8d881500cd7a98cce38a3619bea333167c61;hpb=28b592ebfd60bd96f7e6969c74dc401d765002bc;p=p5sagit%2FFunction-Parameters.git

diff --git a/t/strict.t b/t/strict.t
index 4ebc8d8..a58183d 100644
--- a/t/strict.t
+++ b/t/strict.t
@@ -13,6 +13,7 @@ for my $fail (
 	['4', qr/expect.*\).*after.*"\@y".*"\@z"/],
 ) {
 	my ($file, $pat) = @$fail;
+	$@ = undef;
 	my $done = do $file;
 	my $exc = $@;
 	my $err = $!;