From: Thomas Hochstein <thh@inter.net>
Date: Mon, 2 Sep 2013 04:44:32 +0000 (+0200)
Subject: Fix config path detection for install.pl.
X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=commitdiff_plain;h=cd6feddc112cb87a1498f74dbbeae737d401e8a6

Fix config path detection for install.pl.

install.pl is located in .../install, so remove
this component from $HomePath as configuration
is located in .../.

Signed-off-by: Thomas Hochstein <thh@inter.net>
---

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