diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-10-19 13:26:35 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-19 20:28:48 +0000 |
| commit | b8d190ff31df6d51464475a3b67820d11d6c9f06 (patch) | |
| tree | 42d2e758ef416585da6b586a70bce7ed8f9df0fc /lib | |
| parent | 5fa2bf2b4e1a80d186eead35427699f788f3dea2 (diff) | |
| download | perl-b8d190ff31df6d51464475a3b67820d11d6c9f06.tar.gz | |
two fake test failures on VMS fixed
Message-Id: <011019172623.11292c@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@12512
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Term/Complete.t | 2 | ||||
| -rw-r--r-- | lib/Test/Simple/t/output.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/Term/Complete.t b/lib/Term/Complete.t index 81253cc1d6..7386474c99 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 ef89a0705b..69682e47ae 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 $!; |