From 526a37bc7a7e20fa8b912d7fd3ab61387c7051d9 Mon Sep 17 00:00:00 2001
From: danieldg <danieldg@e03df62e-2008-0410-955e-edbf42e46eb7>
Date: Tue, 13 Oct 2009 18:53:29 +0000
Subject: [PATCH] Update perl config parser in start script

git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@11870 e03df62e-2008-0410-955e-edbf42e46eb7
---
 .inspircd.inc | 14 +++++++-------
 1 file 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?
-- 
2.39.2