From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Fri, 19 Oct 2001 17:26:35 +0000 (-0400)
Subject: two fake test failures on VMS fixed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8d190ff31df6d51464475a3b67820d11d6c9f06;p=p5sagit%2Fp5-mst-13.2.git

two fake test failures on VMS fixed
Message-Id: <011019172623.11292c@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@12512
---

diff --git a/lib/Term/Complete.t b/lib/Term/Complete.t
index 81253cc..7386474 100644
--- a/lib/Term/Complete.t
+++ b/lib/Term/Complete.t
@@ -15,7 +15,7 @@ SKIP: {
     use_ok( 'Term::Complete' );
   
     # this skips tests AND prevents the "used only once" warning
-    skip('No stty, Term::Complete will not run here', 8)
+    skip('No stty, Term::Complete will not run here', 7)
 	unless defined $Term::Complete::tty_raw_noecho &&
 	       defined $Term::Complete::tty_restore;
 
diff --git a/lib/Test/Simple/t/output.t b/lib/Test/Simple/t/output.t
index ef89a07..69682e4 100644
--- a/lib/Test/Simple/t/output.t
+++ b/lib/Test/Simple/t/output.t
@@ -35,7 +35,7 @@ close *$out;
 undef $out;
 open(IN, 'foo') or die $!;
 chomp(my $line = <IN>);
-
+close IN;
 ok($line eq 'hi!');
 
 open(FOO, ">>foo") or die $!;