fix quoting in AsyncWgetFileGetter again

[videosite.git] / videosite-test.pl

diff --git a/videosite-test.pl b/videosite-test.pl
index 0d9e771..422a9fc 100755 (executable)
--- 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';