perl_checker cleanups

1 files changed, 4 insertions, 4 deletions

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,