chiark
/
gitweb
/
~ian
/
nj-awaymsg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
password check, logout button
[nj-awaymsg.git]
/
run-mason.cgi
diff --git
a/run-mason.cgi
b/run-mason.cgi
index 91916cc0c507c05e3f801d1d8f00d08d59000799..d39bb834f9f4ec244901f6c6a70dbfc70e4195bf 100755
(executable)
--- a/
run-mason.cgi
+++ b/
run-mason.cgi
@@
-15,8
+15,8
@@
unshift @INC, $perllib;
my $pathsofar = $comp_root;
die "$pathsofar $!" unless stat $pathsofar;
my $pathsofar = $comp_root;
die "$pathsofar $!" unless stat $pathsofar;
+$ENV{'PATH_INFO'} ||= '/main';
my $path_info = $ENV{'PATH_INFO'};
my $path_info = $ENV{'PATH_INFO'};
-$path_info='' if !defined $path_info;
foreach my $pathcomp (split m#/#, $path_info) {
next if $pathcomp eq '';
foreach my $pathcomp (split m#/#, $path_info) {
next if $pathcomp eq '';