forked from openkylin/libsub-uplevel-perl
19 lines
458 B
Perl
19 lines
458 B
Perl
#!/usr/bin/perl
|
|
|
|
# Kirk: How we deal with death is at least as important as how we deal
|
|
# with life, wouldn't you say?
|
|
# Saavik: As I indicated, Admiral, that thought had not occurred to me.
|
|
# Kirk: Well, now you have something new to think about. Carry on.
|
|
|
|
# XXX DG: Why is this test here? Seems pointless. Oh, well.
|
|
|
|
use strict;
|
|
BEGIN { $^W = 1 }
|
|
|
|
use Test::More tests => 1;
|
|
|
|
#line 12
|
|
eval { die };
|
|
is( $@, "Died at $0 line 12.\n" );
|
|
|