Fix displayed path in install.

[usenet/newsstats.git] / install / install.pl

diff --git a/install/install.pl b/install/install.pl
index 690366e..e2acf66 100755 (executable)
--- a/install/install.pl
+++ b/install/install.pl
@@ -22,8 +22,6 @@ use warnings;
 
 use NewsStats qw(:DEFAULT);
 
-use Cwd;
-
 use DBI;
 use Getopt::Long qw(GetOptions);
 Getopt::Long::config ('bundling');
@@ -37,10 +35,6 @@ GetOptions ('u|update=s' => \$OptUpdate,
             'h|help'     => \&ShowPOD,
             'V|version'  => \&ShowVersion) or exit 1;
 
-### change working directory to .. (as we're in .../install)
-chdir dirname($FullPath).'/..';
-my $Path = cwd();
-
 ### read configuration
 print("Reading configuration.\n");
 my %Conf = %{ReadConfig($OptConfFile)};
@@ -109,7 +103,7 @@ Things left to do:
           ## gather statistics for NewsStats
           newsstats!\\
                   :!*,de.*\\
-                  :Tc,WmtfbsPNH,Ac:$Path/feedlog.pl
+                  :Tc,WmtfbsPNH,Ac:$HomePath/bin/feedlog.pl
 
       Please