1#!perl 2 3use strict; 4use warnings; 5 6use Test::More; 7use FindBin qw/$Bin $Script/; 8 9plan tests => 1; 10 11use CGI::Carp; 12 13chdir( $Bin ); 14 15open( my $fh,"<","$Script" ) 16 || die "Can't open $Script for read: $!"; 17 18while ( <$fh> ) { 19 eval { die("error") if /error/; }; 20 $@ && do { 21 like( $@,qr!at \Q$0\E line 19!,'die with input line number' ); 22 last; 23 } 24} 25close( $fh ); 26