#!/usr/bin/perl -w
use Test::More tests => 1;
eval { die "Foo" };
ok $@, \$@;... 1..1 Invalid value for shared scalar at /usr/local/share/perl/5.8.0/Test/Builder.pm line 319. WHOA! Somehow you got a different number of results than tests ran! This should never happen! Please contact the author immediately! END failed--call queue aborted. Tony
