after installing apache 1.3.19 (win) i had to patch the BEGIN-Blocks (to get the...

[selfforum.git] / selfforum-cgi / user / fo_view.pl

diff --git a/selfforum-cgi/user/fo_view.pl b/selfforum-cgi/user/fo_view.pl
index c6b21cd51e1d3b00d1330922212a0a3f1366e3c7..0aefde4c943097b2e0884875cbdad29d560a15b0 100644 (file)
--- a/selfforum-cgi/user/fo_view.pl
+++ b/selfforum-cgi/user/fo_view.pl
@@ -2,12 +2,14 @@
 
 use strict;
 
-use vars qw($Bin $Shared $Script $t0);
+use vars qw($Bin $Shared $Script);
 
 BEGIN {
-  ($Bin)    = ($0 =~ /^(.*)\/.*$/)? $1 : '.';
+  my $null = $0; $null =~ s/\\/\//g; # for win :-(
+  ($Bin)    = ($null =~ /^(.*)\/.*$/)? $1 : '.';
   $Shared   = "$Bin/../shared";
-  ($Script) = ($0 =~ /^.*\/(.*)$/)? $1 : $0;}
+  ($Script) = ($null =~ /^.*\/(.*)$/)? $1 : $null;
+}
 
 use lib "$Shared";
 use CGI::Carp qw(fatalsToBrowser);