Skip to content
Browse files

silence qw() paren warning

  • Loading branch information...
1 parent cf414d2 commit 19ebfcc73532a2870eed9e153067ea7621819df2 @arcanez committed Jan 25, 2012
Showing with 3 additions and 3 deletions.
  1. +2 −2 lib/POE/Component/Supervisor/Handle/Proc.pm
  2. +1 −1 t/04_global_restart_policy.t
View
4 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";
View
2 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 );

0 comments on commit 19ebfcc

Please sign in to comment.
Something went wrong with that request. Please try again.