From dcb1e0d3fe2ff158cb0df533ce3eb07139040a65 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 7 Nov 2006 12:04:52 +0000 Subject: perl_checker compliance --- urpm/parallel_ka_run.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'urpm') diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm index d9beea4c..868fd149 100644 --- a/urpm/parallel_ka_run.pm +++ b/urpm/parallel_ka_run.pm @@ -7,16 +7,16 @@ package urpm::parallel_ka_run; use strict; -(our $VERSION) = q$Revision$ =~ /(\d+)/; +(our $VERSION) = q($Revision$) =~ /(\d+)/; our $mput_command = $ENV{URPMI_MPUT_COMMAND}; our $rshp_command = $ENV{URPMI_RSHP_COMMAND}; if (!$mput_command) { - ($mput_command) = grep -x, qw(/usr/bin/mput2 /usr/bin/mput); + ($mput_command) = grep { -x $_ } qw(/usr/bin/mput2 /usr/bin/mput); } $mput_command = 'mput' unless $mput_command; if (!$rshp_command) { - ($rshp_command) = grep -x, qw(/usr/bin/rshp2 /usr/bin/rshp); + ($rshp_command) = grep { -x $_ } qw(/usr/bin/rshp2 /usr/bin/rshp); } $rshp_command = 'rshp' unless $rshp_command; -- cgit v1.2.1