Fixed dist-dir usage

master
Torsten Raudssus 2012-03-18 22:34:37 +01:00
parent 5a10a709f9
commit 9629442e2d
3 changed files with 4 additions and 14 deletions

View File

@ -12,7 +12,7 @@ handle query_parts => sub {
my ( $word_count, $descriptor ) = @_[ 1, 2 ];
return if $word_count < 1;
my $sharedir = dist_dir('zeroclickinfo-goodies');
my $sharedir = dist_dir('DDG-GoodieBundle-OpenSourceDuckDuckGo');
my @words = io("$sharedir/passphrase/words.txt")->slurp;
@ -27,4 +27,5 @@ handle query_parts => sub {
return "random passphrase: $output";
return;
};
1;

View File

@ -10,11 +10,6 @@ zci is_cached => 1;
zci answer_type => 'network';
handle sub {
my $sharedir = dist_dir('zeroclickinfo-goodies');
handle sub { io(dist_dir('DDG-GoodieBundle-OpenSourceDuckDuckGo').'/privatenetwork/privatenetwork.html')->slurp };
my $lines = io("$sharedir/privatenetwork/privatenetwork.html")->slurp;
return $lines;
};
1;

View File

@ -10,12 +10,6 @@ zci is_cached => 1;
zci answer_type => 'dns';
handle sub {
my $sharedir = dist_dir('zeroclickinfo-goodies');
my $lines = io("$sharedir/publicdns/publicdns.html")->slurp;
return $lines;
};
handle sub { io(dist_dir('DDG-GoodieBundle-OpenSourceDuckDuckGo').'/publicdns/publicdns.html')->slurp };
1;