SCRIPT_NAME has to start with a slash.

perlDreamer · perlDreamer · commit 08e4ffeaf589 · 2012-02-21T16:12:27.000-08:00
diff --git a/wre/lib/WRE/WebguiDemo.pm b/wre/lib/WRE/WebguiDemo.pm
@@ -45,7 +45,7 @@ sub call {
         $path =~ s/\Q$id\E//;
 
         $env->{PATH_INFO}    = $path;
-        $env->{SCRIPT_NAME} .= $id;
+        $env->{SCRIPT_NAME} .= '/'.$id;
         return $self->response_cb($app->($env), sub {
             $env->{PATH_INFO} = $orig_path_info;
             $env->{SCRIPT_NAME} = $orig_script_name;
