/[pxelator]/lib/PXElator/httpd.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/httpd.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 487 by dpavlin, Sat Jan 23 20:47:17 2010 UTC revision 488 by dpavlin, Sat Jan 23 21:00:01 2010 UTC
# Line 278  warn "XXX pids = ", dump( $daemons::pids Line 278  warn "XXX pids = ", dump( $daemons::pids
278                          my $o = shift;                          my $o = shift;
279                          my $p = delete( $o->{package} );                          my $p = delete( $o->{package} );
280                          delete( $o->{_id} );                          delete( $o->{_id} );
281    
282                          # XXX sigh, dump dies if we don't do this                          # XXX sigh, dump dies if we don't do this
283                          my $tmp = delete( $o->{param} );                          delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o );
284                          $o->{param} = $tmp if defined $tmp;  
285                          print $client qq|<tr><td>|, join(qq|</td><td>|, map { $p->{$_} } keys %$p ), qq|</td><td><pre>|, dump( $o ), qq|</pre></td></tr>\n|;                          print $client qq|<tr><td>|, join(qq|</td><td>|, map { $p->{$_} } keys %$p ), qq|</td><td><pre>|, dump( $o ), qq|</pre></td></tr>\n|;
286                  });                  });
287                  print $client qq|</table>|;                  print $client qq|</table>|;
Legend:
Removed from v.487  
changed lines
  Added in v.488
  ViewVC Help
Powered by ViewVC 1.1.26