From 8b7c076a0d341fba5175a383aa353ada3faa5ee6 Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Mon, 13 Mar 2023 13:21:57 +0100
Subject: [PATCH] t/Legacy/More.t - skip $@ and $! tests on Perl 5.10

---
 t/Legacy/More.t | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/t/Legacy/More.t b/t/Legacy/More.t
index b91234a6a..a8fe07dc1 100644
--- 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' );
+}