@@ -1,13 +1,15 @@ #!/usr/bin/perl use strict; use warnings; +use FindBin; +use File::Spec; -use lib 'lib'; +use lib File::Spec->catdir($FindBin::Bin, 'lib'); use Plagger; use Getopt::Long; -my $config = 'config.yaml'; +my $config = File::Spec->catfile($FindBin::Bin, 'config.yaml'); GetOptions('--config=s', \$config, '--version' => \my $version); Getopt::Long::Configure("bundling"); # allows -c -v plagger 8448e96a8de774728a29a27b5494664c70c7ad15 Tatsuhiko Miyagawa miyagawa@bulknews.net http://github.com/miyagawa/plagger/commit/ec487a4b447b6c829b802db3a23c09d7c20a349e ec487a4b447b6c829b802db3a23c09d7c20a349e 2006-03-03T13:56:16-08:00 2006-03-03T13:56:16-08:00 use FindBin to map default config file. patch from Naoya Ito f0d1345f784ff168966f2a3dd23ddce6ffa76488 Tatsuhiko Miyagawa miyagawa@bulknews.net