X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/05fece1bcf0d5913f64e425d1455cbac8291cb72..050483c4525eb50f57ef5c5c3a33345a5846b4a4:/selfforum-cgi/user/fo_voting.pl

diff --git a/selfforum-cgi/user/fo_voting.pl b/selfforum-cgi/user/fo_voting.pl
index 284857e..7dddc53 100644
--- a/selfforum-cgi/user/fo_voting.pl
+++ b/selfforum-cgi/user/fo_voting.pl
@@ -19,17 +19,17 @@ use vars qw(
 );
 
 BEGIN {
-#  my $null = $0; $null =~ s/\\/\//g; # for win :-(
-#  $Bin     = ($null =~ /^(.*)\/.*$/)? $1 : '.';
-#  $Shared  = "$Bin/../shared";
-#  $Config  = "$Bin/config";
-#  $Script  = ($null =~ /^.*\/(.*)$/)? $1 : $null;
-
-  my $null = $0; #$null =~ s/\\/\//g; # for win :-(
+  my $null = $0; $null =~ s/\\/\//g; # for win :-(
   $Bin     = ($null =~ /^(.*)\/.*$/)? $1 : '.';
-  $Config  = "$Bin/../../../cgi-config/devforum";
-  $Shared  = "$Bin/../../../cgi-shared";
+  $Shared  = "$Bin/../shared";
+  $Config  = "$Bin/config";
   $Script  = ($null =~ /^.*\/(.*)$/)? $1 : $null;
+
+#  my $null = $0; #$null =~ s/\\/\//g; # for win :-(
+#  $Bin     = ($null =~ /^(.*)\/.*$/)? $1 : '.';
+#  $Config  = "$Bin/../../../cgi-config/devforum";
+#  $Shared  = "$Bin/../../../cgi-shared";
+#  $Script  = ($null =~ /^.*\/(.*)$/)? $1 : $null;
 }
 
 use lib $Shared;