[Haver-commits] r283 - trunk/main/common/lib/Haver

[haver]

Author: dylan
Date: 2004-06-29 15:43:05 -0400 (Tue, 29 Jun 2004)
New Revision: 283

Modified:
   trunk/main/common/lib/Haver/Callback.pm
Log:
Possible bugfix to using string as subref....


Modified: trunk/main/common/lib/Haver/Callback.pm
===================================================================
--- trunk/main/common/lib/Haver/Callback.pm     2004-06-29 19:42:01 UTC (rev 
282)
+++ trunk/main/common/lib/Haver/Callback.pm     2004-06-29 19:43:05 UTC (rev 
283)
@@ -24,13 +24,14 @@
 use base 'Haver::Base';
 
 our $VERSION = '0.01';
+use Scalar::Util qw(reftype);
 
 sub new {
        my ($this, $cb, @args) = @_;
        # ASSERT: ref($cb);
        my $callback;
 
-       if (ref($cb) eq 'CODE') {
+       if (reftype($cb) eq 'CODE') {
                $callback = $cb;
        } elsif (ref($cb) eq 'ARRAY') {
                @_ = ($this, @$cb, @args);
@@ -51,7 +52,7 @@
 
 sub call {
        my ($me, @args) = @_;
-
+       
        $me->{callback}->(@{ $me->{args} }, @args);
 }