From 6f4f5ae9f37abaedff2bd6af0b3581e837f86065 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 6 Dec 2005 14:47:26 +0000 Subject: The parallel handlers define the same function. This could lead to warnings; silence them. --- t/01compile.t | 1 - urpm/parallel_ka_run.pm | 2 ++ urpm/parallel_ssh.pm | 2 ++ 3 files changed, 4 insertions(+), 1 deletion(-) diff --git a/t/01compile.t b/t/01compile.t index d77c1a7e..753c5ff6 100644 --- a/t/01compile.t +++ b/t/01compile.t @@ -2,7 +2,6 @@ use strict; use warnings; -no warnings 'redefine'; use Test::More tests => 10; for my $module (glob("urpm/*.pm")) { diff --git a/urpm/parallel_ka_run.pm b/urpm/parallel_ka_run.pm index 4100ee96..cb4f2d6c 100644 --- a/urpm/parallel_ka_run.pm +++ b/urpm/parallel_ka_run.pm @@ -250,6 +250,8 @@ sub parallel_install { package urpm; +no warnings 'redefine'; + sub handle_parallel_options { my (undef, $options) = @_; my ($media, $ka_run_options) = $options =~ /ka-run(?:\(([^\)]*)\))?:(.*)/; diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index 04b56fbc..1ed4406a 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -287,6 +287,8 @@ sub parallel_install { package urpm; +no warnings 'redefine'; + sub handle_parallel_options { my (undef, $options) = @_; my ($id, @nodes) = split /:/, $options; -- cgit v1.2.1