+++ /dev/null
-#!/usr/bin/perl -Tw
-
-# Make sure caller() is undisturbed.
-
-use strict;
-use warnings;
-
-use Test::Exception;
-use Test::More tests => 2;
-
-eval { die caller() . "\n" };
-is( $@, "main\n" );
-
-throws_ok { die caller() . "\n" } qr/^main$/;