From fd0717a15cb1b36e25a019060d3f40aac9ca9517 Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Wed, 4 Sep 2013 11:27:19 +0200 Subject: [PATCH] Fix displayed path in install. install.pl will display a sample newsfeeds entry. Adapt the path to the changes in 2ad99c20bcc297362aeccabb1c51e20c4bd4b533. Signed-off-by: Thomas Hochstein --- install/install.pl | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/install/install.pl b/install/install.pl index 690366e..e2acf66 100755 --- 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