silence qw() paren warning

arcanez · Jan 25, 2012 · 19ebfcc · 19ebfcc
1 parent cf414d2
commit 19ebfcc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/POE/Component/Supervisor/Handle/Proc.pm b/lib/POE/Component/Supervisor/Handle/Proc.pm
@@ -165,7 +165,7 @@ sub _wrapped_program {
     return $program;
 }
 
-foreach my $event qw(stdout stderr stdin) {
+foreach my $event (qw(stdout stderr stdin)) {
     my $cb_name = "${event}_callback";
     event $event => sub {
         if ( my $cb = $_[OBJECT]->$cb_name ) {
@@ -247,7 +247,7 @@ event _close_stdin => sub {
     }
 };
 
-foreach my $sig qw(term kill) {
+foreach my $sig (qw(term kill)) {
     my $SIG = uc($sig);
 
     my $event = "_${sig}_loop";

diff --git a/t/04_global_restart_policy.t b/t/04_global_restart_policy.t
@@ -20,7 +20,7 @@ my $mid = int( ($n + 1) / 2 );
 
 my @classes = qw(Proc Session);
 foreach my $class ( @classes, undef, undef ) {
-    foreach my $policy qw(one all rest) {
+    foreach my $policy (qw(one all rest)) {
         my %pids;
 
         my ( $supervisor, $session );