diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-01 01:24:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-01 01:24:12 +0000 |
| commit | b0d7043a7a4033b1b37360ded8c7eb09d14068c3 (patch) | |
| tree | 84b9f706eefcfaaef51eb55a63382dae7d43226a /lib/Term | |
| parent | 1285de5cbb12e1e7ecf3b6b1eb8ec0d79857c24b (diff) | |
| download | perl-b0d7043a7a4033b1b37360ded8c7eb09d14068c3.tar.gz | |
(Retracted by #12285)
p4raw-id: //depot/perl@12284
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/Cap.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t index ea34927318..24b0dfb82a 100644 --- a/lib/Term/Cap.t +++ b/lib/Term/Cap.t @@ -103,7 +103,7 @@ isn't( $@, '', 'Tgetent() caught bad termcap file' ); $vals->{TERM} = ''; $ENV{TERMPATH} = $0; eval { $t = Term::Cap->Tgetent($vals) }; -like( $@, qr/failed termcap lookup/, 'Tgetent() dies with bad termcap file' ); +ok( $@, 'Tgetent() dies with bad termcap file' ); SKIP: { skip( "Can't write 'tcout' file for tests", 8 ) unless $writable; |