--- trunk/lib/Frey/Server.pm 2008/11/30 23:19:06 652 +++ trunk/lib/Frey/Server.pm 2008/11/30 23:49:32 653 @@ -51,8 +51,8 @@ my $path = $url->path; -# eval { - { + eval { +# { if ( $path =~ m{/reload(.*)} ) { @@ -113,18 +113,17 @@ my $class = rest2class $1; warn "# run $path -> $class $2"; $run->{format} = $3 if $3; - $params->{request_url} = $url, $run->{$_} = $params->{$_} foreach keys %$params; - $f = Frey::Run->new( class => $class, params => $run, run => $2, request_url => $url ); + $f = Frey::Run->new( class => $class, params => $run, run => $2 ); } elsif ( $path =~ m{/([^/]+)/?$} ) { my $class = rest2class $1; warn "# introspect $class"; $run->{class} ||= $class; - $f = Frey::Run->new( class => 'Frey::Introspect', params => $run, request_url => $url ); + $f = Frey::Run->new( class => 'Frey::Introspect', params => $run ); } else { - $f = Frey::Run->new( class => 'Frey::ClassBrowser', params => $run, request_url => $url ); + $f = Frey::Run->new( class => 'Frey::ClassBrowser', params => $run ); } if ( $f ) {