Make gv.t pass on systems that do not support -T $glob with stdio

1 files changed, 10 insertions, 3 deletions

diff --git a/t/op/gv.t b/t/op/gv.t
index 21f0d525df..32afdff69b 100644
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -759,9 +759,16 @@ EOF
   ok defined -t $_, 'PVLV: -t does not stringify';
 
   # neither should -T
-  open my $quile, "<", 'test.pl';
-  $_ = *$quile;
-  ok -T $_, "PVLV: -T does not stringify";
+  # but some systems don’t support this on file handles
+  my $pass;
+  ok
+    eval {
+     open my $quile, "<", 'test.pl';
+     $_ = *$quile;
+     $pass = -T $_;
+     1
+    } ? $pass : $@ =~ /not implemented on filehandles/,
+   "PVLV: -T does not stringify";
   
   # Unopened file handle
   {