projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1285de5
)
(Retracted by #12285)
author
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 1 Oct 2001 01:24:12 +0000
(
01:24
+0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 1 Oct 2001 01:24:12 +0000
(
01:24
+0000)
p4raw-id: //depot/perl@12284
lib/Term/Cap.t
patch
|
blob
|
history
diff --git
a/lib/Term/Cap.t
b/lib/Term/Cap.t
index
ea34927
..
24b0dfb
100644
(file)
--- 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;