[Haver-commits] r281 - trunk/main/client/lib/Haver/Client

[haver]

Author: bdonlan
Date: 2004-06-29 15:39:25 -0400 (Tue, 29 Jun 2004)
New Revision: 281

Modified:
   trunk/main/client/lib/Haver/Client/POE.pm
Log:
* main/client/lib/Haver/Client/POE.pm:
  Fix _dprint and _dprintf


Modified: trunk/main/client/lib/Haver/Client/POE.pm
===================================================================
--- trunk/main/client/lib/Haver/Client/POE.pm   2004-06-29 19:17:06 UTC (rev 
280)
+++ trunk/main/client/lib/Haver/Client/POE.pm   2004-06-29 19:39:25 UTC (rev 
281)
@@ -63,13 +63,13 @@
 
 sub _dprint {
        my ($level, @text) = @_;
-       return unless POE::Kernel->get_active_session()->get_heap()->{debug} >= 
$level;
+       return unless 
POE::Kernel->get_active_session()->get_heap()->{object}{debug} >= $level;
        print STDERR @text;
 }
 
 sub _dprintf {
        my ($level, $fmt, @text) = @_;
-       return unless POE::Kernel->get_active_session()->get_heap()->{debug} >= 
$level;
+       return unless 
POE::Kernel->get_active_session()->get_heap()->{object}{debug} >= $level;
        printf STDERR $fmt, @text;
 }
 
@@ -146,6 +146,7 @@
 
 sub _start {
        my ($kernel, $self, $session, $alias, @args) = 
@_[KERNEL,OBJECT,SESSION,ARG0..$#_];
+       $_[HEAP]->{object} = $self;
        $self->{alias} = $alias;
        $kernel->alias_set($self->{alias});
        $self->{scope} = undef;