X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=run-mason.cgi;h=d39bb834f9f4ec244901f6c6a70dbfc70e4195bf;hb=3b85507552455f34c20d66850c483e587335a3d9;hp=91916cc0c507c05e3f801d1d8f00d08d59000799;hpb=05d2e40173462338b9aff970d35059ed63d1c4e5;p=nj-awaymsg.git

diff --git a/run-mason.cgi b/run-mason.cgi
index 91916cc..d39bb83 100755
--- a/run-mason.cgi
+++ b/run-mason.cgi
@@ -15,8 +15,8 @@ unshift @INC, $perllib;
 my $pathsofar = $comp_root;
 die "$pathsofar $!" unless stat $pathsofar;
 
+$ENV{'PATH_INFO'} ||= '/main';
 my $path_info = $ENV{'PATH_INFO'};
-$path_info='' if !defined $path_info;
 
 foreach my $pathcomp (split m#/#, $path_info) {
     next if $pathcomp eq '';