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