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 => "",
});
}