use File::Basename;
use Module::Load;
use Cwd qw(realpath);
+use Carp;
+
+$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
my $info = 0;
my $debug = 0;
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;
}
}
libvideosite::check_for_link({
message => $_,
ewpf => sub { print @_, "\n" },
+ window => "",
});
}