Changeset 791

Show
Ignore:
Timestamp:
10/23/02 19:25:10
Author:
miyagawa
Message:

fixed $_ bug

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Class-Trigger/trunk/Changes

    r625 r791  
    11Revision history for Perl extension Class::Trigger. 
     2 
     30.06  Wed Oct 23 19:13:20 JST 2002 
     4        * Fixed bug that trigger disappears when trigger sub modifies $_. 
     5          (Thanks to Tony Bowden and Barry Hoggard) 
    26 
    370.05  Tue Apr 30 14:06:06 JST 2002 
  • Class-Trigger/trunk/lib/Class/Trigger.pm

    r625 r791  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.05
     5$VERSION = 0.06
    66 
    77use Class::Data::Inheritable; 
     
    4949    my $all_triggers = __fetch_triggers($self); 
    5050    my $triggers = $all_triggers->{$when} || []; 
    51     $_->($self) for @{$triggers}; 
     51    for my $trigger (@{$triggers}) { 
     52        $trigger->($self); 
     53    } 
    5254} 
    5355