From e7e48fe701f3ddf482683e39c11b8fe1b08fcea8 Mon Sep 17 00:00:00 2001
From: Thomas Hochstein <thh@inter.net>
Date: Mon, 2 Sep 2013 06:44:32 +0200
Subject: [PATCH] Fix config path detection for install.pl.

install.pl is located in .../install, so replace
this component in $HomePath with '.' and change
'..' to '.' as configuration is located in .../.

Signed-off-by: Thomas Hochstein <thh@inter.net>
---
 install/install.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/install/install.pl b/install/install.pl
index 374d74b..0787805 100755
--- a/install/install.pl
+++ b/install/install.pl
@@ -40,6 +40,8 @@ chdir dirname($0).'/..';
 my $Path = cwd();
 
 ### read configuration
+$HomePath = '..' if ($HomePath eq '.');
+$HomePath =~ s/install/./;
 print("Reading configuration.\n");
 my %Conf = %{ReadConfig($HomePath.'/newsstats.conf')};
 
-- 
2.20.1