Changeset 407

Show
Ignore:
Timestamp:
12/25/01 06:43:14
Author:
miyagawa
Message:

can() instead of isa()

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Class-Trigger/trunk/lib/Class/Trigger.pm

    r405 r407  
    1111    my $class = shift; 
    1212    my $pkg = caller(0); 
    13     unless ($pkg->isa('Class::Data::Inheritable')) { 
     13 
     14    # XXX 5.005_03 isa() is broken with MI 
     15    unless ($pkg->can('mk_classdata')) { 
    1416        no strict 'refs'; 
    1517        push @{"$pkg\::ISA"}, 'Class::Data::Inheritable';