This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make gv.t pass on systems that do not support -T $glob with stdio
authorFather Chrysostomos <sprout@cpan.org>
Mon, 27 Sep 2010 05:17:42 +0000 (22:17 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 27 Sep 2010 05:17:42 +0000 (22:17 -0700)
t/op/gv.t

index 21f0d52..32afdff 100644 (file)
--- 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
   {