===================================================================
RCS file: /cvs/HOPE/Net-OpenAMD/script/test_server.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- HOPE/Net-OpenAMD/script/test_server.pl	2010/06/26 17:16:08	1.4
+++ HOPE/Net-OpenAMD/script/test_server.pl	2010/06/27 01:52:33	1.5
@@ -3,8 +3,6 @@
 use Mojolicious::Lite;
 use Mojo::JSON;
 
-use Data::Dumper;
-
 use 5.010;
 
 app->renderer->add_helper(
@@ -13,9 +11,9 @@
 
         state %Actions;
 
-        my $path  = app->home->rel_file( 'data/' . $action );
+        my $path = app->home->rel_file( '../t/data/' . $action );
 
-        return if ! -e $path;
+        return if !-e $path;
         my $mtime = ( stat _ )[9];
 
         $Actions{$action}{mtime} //= 0;
@@ -52,8 +50,11 @@
     my @data = @{$data};
     foreach my $param ( $self->param ) {
         my $value = $self->param($param);
-        @data = grep { ( !exists $_->{$param} ) || $value ~~ $_->{$param} }
-            @data;
+        @data = grep {
+            ref $_ ne 'HASH'
+                || ( !exists $_->{$param} )
+                || $value ~~ $_->{$param}
+        } @data;
     }
     $self->render_json( \@data );
 };