소스 검색

if pisg can't find the config file in the current directory (when running
from crontab), then try opening the config file in which pisg.pl resides
instead..

Morten Brix Pedersen 25 년 전
부모
커밋
50e4fa69a0
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      pisg.pl

+ 2 - 2
pisg.pl

@@ -2,6 +2,7 @@
 
 use strict;
 use Getopt::Long;
+use FindBin;
 
 # pisg - Perl IRC Statistics Generator
 #
@@ -274,7 +275,7 @@ sub init_config
 {
     get_cmdlineoptions();
 
-    if (open(CONFIG, $conf->{configfile})) {
+    if ((open(CONFIG, $conf->{configfile}) or open(CONFIG, $FindBin::Bin . "/$conf->{configfile}"))) {
         print "Using config file: $conf->{configfile}\n";
 
         my $lineno = 0;
@@ -2210,7 +2211,6 @@ END_USAGE
 
 sub get_language_templates
 {
-    use FindBin;
 
     open(FILE, $conf->{langfile}) or open (FILE, $FindBin::Bin . "/$conf->{langfile}") or die("$0: Unable to open language file($conf->{langfile}): $!\n");