***************
*** 151,157 ****
      my $path = $data->{'path'};
      
      unless ($path) {
-         $path = URI::Escape::uri_unescape($cgi->path_info);
          $path =~ s/\?.*//;
      };
  
--- 151,157 ----
      my $path = $data->{'path'};
      
      unless ($path) {
+         $path = URI::Escape::uri_unescape($cgi ? $cgi->path_info : "/");
          $path =~ s/\?.*//;
      };