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 (file)
--- 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 (file)
--- 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 $!;