From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 16 Jul 2010 17:04:54 +0000 (-0500)
Subject: Avoid test suite hang with new readline test on VMS.
X-Git-Tag: v5.13.3~67
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/23fe4d6e7bec4ccc412e24d9d07947f90422f2dd?ds=sidebyside

Avoid test suite hang with new readline test on VMS.
---

diff --git a/t/op/readline.t b/t/op/readline.t
index 1a57906..dece3f4 100644
--- a/t/op/readline.t
+++ b/t/op/readline.t
@@ -166,11 +166,17 @@ SKIP: {
     # retains all its allocated space and buggy perl sets SvPOK to
     # make the value valid but before it starts read().
     my $once  = test_eintr_readline( $in, 0 );
-    my $twice = test_eintr_readline( $in, 1 );
     is(   $once,  "once\n", "readline read first line ok" );
-    isnt( $twice, "once\n", "readline didn't re-return things when interrupted" );
 
+    my $twice;
     TODO: {
+        todo_skip( 'readline not interrupted by alarm on VMS -- why?' ) if $^O eq 'VMS';
+        $twice = test_eintr_readline( $in, 1 );
+        isnt( $twice, "once\n", "readline didn't re-return things when interrupted" );
+    }
+
+    TODO: {
+        todo_skip( 'readline not interrupted by alarm on VMS -- why?' ) if $^O eq 'VMS';
         local our $TODO = "bad readline returns '', not undef";
         is( $twice, undef, "readline returned undef when interrupted" );
     }