From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 1 Oct 2001 01:46:35 +0000 (+0000)
Subject: Retract #12284.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93e59c9bee9efc338fe8dcf2f9ff64b65373a4d7;p=p5sagit%2Fp5-mst-13.2.git

Retract #12284.

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

diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index 24b0dfb..ea34927 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) };
-ok( $@, 'Tgetent() dies with bad termcap file' );
+like( $@, qr/failed termcap lookup/, 'Tgetent() dies with bad termcap file' );
 
 SKIP: {
 	skip( "Can't write 'tcout' file for tests", 8 ) unless $writable;