[perl.git] branch blead, updated. v5.13.5-190-g804401e

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/804401eafe14239ae9d16234c83f1dd18faeb926?hp=2ccd21fcbb088ab4d4206f572aea3d94c9216a71>

- Log -----------------------------------------------------------------
commit 804401eafe14239ae9d16234c83f1dd18faeb926
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Sun Sep 26 22:17:42 2010 -0700

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

Summary of changes:
 t/op/gv.t |   13 ++++++++++---
 1 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/t/op/gv.t b/t/op/gv.t
index 21f0d52..32afdff 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
   {

--
Perl5 Master Repository