1#!/usr/bin/perl -w
2
3# Kirk:   How we deal with death is at least as important as how we deal 
4#         with life, wouldn't you say? 
5# Saavik: As I indicated, Admiral, that thought had not occurred to me.  
6# Kirk:   Well, now you have something new to think about. Carry on. 
7 
8# XXX DG: Why is this test here?  Seems pointless.  Oh, well.
9
10use lib qw(t/lib);
11use Test::More tests => 1;
12
13#line 12
14eval { die };
15is( $@, "Died at $0 line 12.\n" );
16
17