Changeset 260

Show
Ignore:
Timestamp:
03/04/06 06:56:16
Author:
miyagawa
Message:

use FindBin? to map default config file. patch from Naoya Ito

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/plagger

    r200 r260  
    22use strict; 
    33use warnings; 
     4use FindBin; 
     5use File::Spec; 
    46 
    5 use lib 'lib'
     7use lib File::Spec->catdir($FindBin::Bin, 'lib')
    68use Plagger; 
    79 
    810use Getopt::Long; 
    911 
    10 my $config = 'config.yaml'
     12my $config = File::Spec->catfile($FindBin::Bin, 'config.yaml')
    1113GetOptions('--config=s', \$config, '--version' => \my $version); 
    1214Getopt::Long::Configure("bundling"); # allows -c -v