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