--- Event-Notify-0.00004/t/02_basic.t~	2007-11-29 11:27:23.000000000 +0000

+++ Event-Notify-0.00004/t/02_basic.t	2013-10-04 16:05:36.195801533 +0000

@@ -15,7 +15,7 @@

     my $observer = Test::MockObject->new();

     $observer->mock('register', sub {

         my ($self, $subject) = @_;

-        $subject->register_event($_, $self) for qw(foo bar baz);

+        $subject->register_event($_, $self) for (qw(foo bar baz));

     } );

     $observer->mock('notify', sub {

         my ($self, $event) = @_;

@@ -39,10 +39,10 @@

     my $observer = Test::MockObject->new();

     $observer->mock('register', sub {

         my ($self, $subject) = @_;

-        $subject->register_event($_, $self, { method => $_ }) for qw(foo bar baz);

+        $subject->register_event($_, $self, { method => $_ }) for (qw(foo bar baz));

     } );

-    foreach my $e qw(foo bar baz) {

+    foreach my $e (qw(foo bar baz)) {

         $observer->mock($e, sub {

             my ($self, $event) = @_;

             is($e, $event, "method $e was called for the appropriate event");

@@ -66,7 +66,7 @@

         my($event) = @_;

         like($event, qr/^foo|bar|baz$/, "proper event $event notified");

     };

-    $notify->register_event( $_, $observer ) for qw(foo bar baz);

+    $notify->register_event( $_, $observer ) for (qw(foo bar baz));

     $notify->notify('foo');

     $notify->notify('bar');