(Retracted by #12285)
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 1 Oct 2001 01:24:12 +0000 (01:24 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 1 Oct 2001 01:24:12 +0000 (01:24 +0000)
p4raw-id: //depot/perl@12284

lib/Term/Cap.t

index ea34927..24b0dfb 100644 (file)
@@ -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;