X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite-test.pl;h=422a9fceb134dc49897a3960f32533a1e4c44e7e;hb=aedf7360ae2ac6e69d0b2009603c46eedb0af7a2;hp=0d9e7718f27c0a442b891d8517000c86fe5f38bc;hpb=11683399d861aa6bac9b0d7bf1c754de4302fece;p=videosite.git diff --git a/videosite-test.pl b/videosite-test.pl index 0d9e771..422a9fc 100755 --- a/videosite-test.pl +++ b/videosite-test.pl @@ -6,6 +6,9 @@ use File::Spec; use File::Basename; use Module::Load; use Cwd qw(realpath); +use Carp; + +$SIG{ __DIE__ } = sub { Carp::confess( @_ ) }; my $debug = 0; my %config = ( @@ -16,6 +19,8 @@ my $success = 0; my $fail = 0; my $notest = 0; +GetOptions("d" => \$debug); + push(@INC, dirname(realpath($0))); load 'libvideosite';