#!/usr/bin/perl
# Convert die into report

use warnings;
use strict;
use lib 'lib', '../lib', 't';

$! = 3;
my $errno  = $!+0;
my $errstr = "$!";

#### Carp only works in package != main
use DieTests;

# we need a short stack trace
sub simple_wrapper() { DieTests::run_tests() }
simple_wrapper();
