From 5d1ccbbc86c15a4cbcd6fd25b2e23929c6c43881 Mon Sep 17 00:00:00 2001
From: Guillem Jover <gjover@sipwise.com>
Date: Tue, 20 May 2025 23:57:08 +0200
Subject: [PATCH] MT#62763 perl: Use three argument form for open

Warned-by: perlcritic
Fixes: InputOutput::ProhibitTwoArgOpen
Change-Id: Ib1ca9e0e3865e26bce927bac9eb3175d07bcde25
---
 doc/munin-sems-stats-monitoring.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/doc/munin-sems-stats-monitoring.pl b/doc/munin-sems-stats-monitoring.pl
index 5e4fcccd..c40a18d1 100644
--- 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>)
 {