t/Legacy/More.t - skip $@ and $! tests on Perl 5.10

Test-More · Mar 13, 2023 · 8b7c076 · 8b7c076
1 parent a9f8567
commit 8b7c076
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/t/Legacy/More.t b/t/Legacy/More.t
@@ -196,6 +196,10 @@ is_deeply( { foo => $sub, bar => [1, $glob] },
 is_deeply( qr/a/, qr/a/, "same regex" );
 
 
-# These two tests must remain at the end.
-is( $@, $Err,               '$@ untouched' );
-cmp_ok( $!, '==', $Errno,   '$! untouched' );
+SKIP: {
+    skip "Tests known to fail on Perl 5.10", 2
+        if $] =~ /^5\.010/;
+    # These two tests must remain at the end.
+    is( $@, $Err,               '$@ untouched' );
+    cmp_ok( $!, '==', $Errno,   '$! untouched' );
+}