MT#62763 perl: Use three argument form for open

Warned-by: perlcritic Fixes: InputOutput::ProhibitTwoArgOpen Change-Id: Ib1ca9e0e3865e26bce927bac9eb3175d07bcde25
1 year ago · 5d1ccbbc86
parent fc7149b456
commit 5d1ccbbc86
1 changed files with 2 additions and 2 deletions
--- a/doc/munin-sems-stats-monitoring.pl
+++ b/doc/munin-sems-stats-monitoring.pl
@ -16,7 +16,7 @@ if($ARGV[0] and $ARGV[0] eq 'config') {
        exit 0;
 }

-open my $fh_active, "sems-stats|";
+open my $fh_active, '-|', 'sems-stats';

 while (<$fh_active>)
 {
@ -27,7 +27,7 @@ while (<$fh_active>)
 }
 close $fh_active;

-open my $fh_max, "sems-stats -c get_callsmax|";
+open my $fh_max, '-|', 'sems-stats -c get_callsmax';

 while (<$fh_max>)
 {