From 9745959a89f3a201c789b8e4ce494405f95b2a7a Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Sat, 20 Dec 2014 13:52:29 +1100
Subject: PerlIO::scalar: skip the 4GB seek test if off_t is too small

---
 ext/PerlIO-scalar/t/scalar.t | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ext/PerlIO-scalar/t/scalar.t b/ext/PerlIO-scalar/t/scalar.t
index f1156d67ec..f4cfbefaf9 100644
--- a/ext/PerlIO-scalar/t/scalar.t
+++ b/ext/PerlIO-scalar/t/scalar.t
@@ -492,7 +492,10 @@ my $byte_warning = "Strings with code points over 0xFF may not be mapped into in
     is $x, $as_string."boo\n", 'string gets appended to ref';
 }
 
+SKIP:
 { # [perl #123443]
+    skip "Can't seek over 4GB with a small off_t", 4
+      if $Config::Config{lseeksize} < 8;
     my $buf0 = "hello";
     open my $fh, "<", \$buf0 or die $!;
     ok(seek($fh, 2**32, SEEK_SET), "seek to a large position");
-- 
cgit v1.2.1