--- lib/PXElator/httpd.pm 2010/01/23 20:47:17 487 +++ lib/PXElator/httpd.pm 2010/01/23 21:00:01 488 @@ -278,9 +278,10 @@ my $o = shift; my $p = delete( $o->{package} ); delete( $o->{_id} ); + # XXX sigh, dump dies if we don't do this - my $tmp = delete( $o->{param} ); - $o->{param} = $tmp if defined $tmp; + delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o ); + print $client qq||, join(qq||, map { $p->{$_} } keys %$p ), qq|
|, dump( $o ), qq|
\n|; }); print $client qq||;