X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite-dl.pl;h=594b020680704b81be1dfd506ff80bb00b3d1f3a;hb=2fa89b83b1a48165bf56feda84801715c19fd239;hp=3a711f1d1de6032001fd80b74dc557b37db4dd42;hpb=28e365c0f06c832e5c1e3f3a852a18ab03045c5f;p=videosite.git

diff --git a/videosite-dl.pl b/videosite-dl.pl
index 3a711f1..594b020 100755
--- a/videosite-dl.pl
+++ b/videosite-dl.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 $info = 0;
 my $debug = 0;
@@ -23,10 +26,10 @@ sub link_callback {
         foreach (keys(%{$m})) {
             printf("%s: %s\n", $_, defined($m->{$_})?$m->{$_}:'(undef)');
         }
-        return 0;
+        return 1;
     } else {
         print("Downloading $m->{'TITLE'}\n");
-        return 1;
+        return 0;
     }
 }
 
@@ -58,5 +61,6 @@ foreach (@ARGV) {
     libvideosite::check_for_link({
         message => $_,
         ewpf => sub { print @_, "\n" },
+        window => "",
     });
 }