diff options
| author | danieldg <danieldg@e03df62e-2008-0410-955e-edbf42e46eb7> | 2009-10-13 18:53:29 +0000 |
|---|---|---|
| committer | danieldg <danieldg@e03df62e-2008-0410-955e-edbf42e46eb7> | 2009-10-13 18:53:29 +0000 |
| commit | 526a37bc7a7e20fa8b912d7fd3ab61387c7051d9 (patch) | |
| tree | ff1ba92d21cbeddb63c65ce9d1c8cb6d4c629158 | |
| parent | fd4dbfca434adf436c8337b7ae2ad9607b065eae (diff) | |
Update perl config parser in start script
git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@11870 e03df62e-2008-0410-955e-edbf42e46eb7
| -rw-r--r-- | .inspircd.inc | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/.inspircd.inc b/.inspircd.inc index 486e4cec2..d65df60b3 100644 --- a/.inspircd.inc +++ b/.inspircd.inc @@ -303,7 +303,7 @@ sub getpidfile # Are We using a relative path? if ($file !~ /^\//) { # Convert it to a full path. - $file = $confpath . $file; + $file = $runpath . $file; } # Have we checked this file before? @@ -311,7 +311,7 @@ sub getpidfile $filesparsed{$file} = 1; # Open the File.. - open INFILE, "< $file" or die "Unable to open file $file included in configuration\n"; + open INFILE, '<', $file or die "Unable to open file $file included in configuration\n"; # Grab entire file contents.. my(@lines) = <INFILE>; # Close the file @@ -333,9 +333,9 @@ sub getpidfile } else { - if (-f $confpath . $pidfile) + if (-f $runpath . $pidfile) { - $pidfile = $confpath . $pidfile; + $pidfile = $runpath . $pidfile; return; } } @@ -358,9 +358,9 @@ sub getpidfile } else { - if (-f $confpath . $pidfile) + if (-f $runpath . $pidfile) { - $pidfile = $confpath . $pidfile; + $pidfile = $runpath . $pidfile; return; } } @@ -442,7 +442,7 @@ sub validateconf # Are We using a relative path? if ($file !~ /^\//) { # Convert it to a full path.. - $file = $confpath . $file; + $file = $runpath . $file; } # Have we checked this file before? |