From 6aaf7d1e438b9820164b94d3b548a858bb6abf68 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 27 Mar 2012 17:15:23 +0000 Subject: perl_checker cleanups --- urpmf | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'urpmf') diff --git a/urpmf b/urpmf index a07a6066..b13b53f1 100755 --- a/urpmf +++ b/urpmf @@ -286,21 +286,21 @@ urpm::media::configure($urpm, # nb: we don't "my" $medium since it is used for $callback if ($needed_media_info{hdlist}) { - foreach $medium (urpm::media::non_ignored_media($urpm)) { + foreach my $medium (urpm::media::non_ignored_media($urpm)) { my $hdlist = urpm::media::any_hdlist($urpm, $medium, $options{verbose} < 0) or $urpm->{error}(N("no hdlist available for medium \"%s\"", $medium->{name})), next; $urpm->{log}("getting information from $hdlist"); $urpm->parse_hdlist($hdlist, callback => $callback); } } elsif (!@needed_xml_info) { - foreach $medium (urpm::media::non_ignored_media($urpm)) { + foreach my $medium (urpm::media::non_ignored_media($urpm)) { my $synthesis = urpm::media::any_synthesis($urpm, $medium) or $urpm->{error}(N("no synthesis available for medium \"%s\"", $medium->{name})), next; $urpm->{log}("getting information from $synthesis"); $urpm->parse_synthesis($synthesis, callback => $callback); } } elsif (my ($xml_info) = @needed_xml_info) { - foreach $medium (urpm::media::non_ignored_media($urpm)) { + foreach my $medium (urpm::media::non_ignored_media($urpm)) { my $xml_info_file = urpm::media::any_xml_info($urpm, $medium, $xml_info, $options{verbose} < 0); if (!$xml_info_file) { my $hdlist = urpm::media::any_hdlist($urpm, $medium, $options{verbose} < 0) or @@ -340,7 +340,7 @@ if ($needed_media_info{hdlist}) { EOF $urpm->{debug} and $urpm->{debug}($code); eval $code; - $@ and $urpm->{fatal}(1, "$@"); + $@ and $urpm->{fatal}(1, $@); } else { urpm::xml_info::do_something_with_nodes( $xml_info, -- cgit v1.2.1