X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite-dl.pl;h=8b1b161ca38fe6381008271d7fe4643be98d68e6;hb=faaacb2741009b8df6e855d74f38ef72197d6889;hp=642b162a2d430856e98e08404fd30039467fbb88;hpb=ed3e6b64d7a09f7cb78c5f0d6596c62b65c119ec;p=videosite.git diff --git a/videosite-dl.pl b/videosite-dl.pl index 642b162..8b1b161 100755 --- a/videosite-dl.pl +++ b/videosite-dl.pl @@ -24,13 +24,13 @@ sub ploader { foreach $p (@list) { $p =~ s/\.pm$//; - eval qq{ require $p; }; + eval qq{ require videosite::$p; }; if ($@) { print("Failed to load plugin: $@"); next; } - $g = eval $p.q{->new();}; + $g = eval qq{ videosite::$p->new();}; if ($@) { print("Failed to instanciate: $@"); delete($INC{$p}); @@ -59,6 +59,7 @@ my $bp; # This is some dark magic to find out our real base directory, # where we hope to find our plugins. $bp = File::Spec->catdir(dirname(realpath($0)), 'videosite'); +unshift(@INC, dirname(realpath($0))); @g = ploader($bp, '.*Grabber\.pm$', 'grabber'); ($f) = ploader($bp, '^FileGetter\.pm$', 'getter');