fix semibroken tests

[p5sagit/Function-Parameters.git] / t / strict.t

diff --git a/t/strict.t b/t/strict.t
index 4ebc8d8..a58183d 100644 (file)
--- 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 = $!;