From 4288fbd2f7523c95cbbff73ee6c8a677aad7f646 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 26 Jan 2004 22:48:22 +0000
Subject: perl_checker fix

---
 urpmq | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/urpmq b/urpmq
index d8dd1580..624f0433 100755
--- a/urpmq
+++ b/urpmq
@@ -380,7 +380,7 @@ if ($query->{list_aliases}) {
 	    # if not root, use a temporary directory to store headers
 	    $< != 0 and my $tmp_header_dir = chomp_(`mktemp -d /tmp/urpmq.XXXXXX`);
 	    foreach (0..$#{$urpm->{media} || []}) {
-		$urpm->{media}[$_]->{synthesis} and next;
+		$urpm->{media}[$_]{synthesis} and next;
 		if (my @headers = (grep { my $file = "$urpm->{cachedir}/headers/$_"; ! -s $file }
 				   map { my $pkg = $urpm->{depslist}[$_];
 					 $pkg && $pkg->header_filename } keys %{$list->[$_]})) {
-- 
cgit v1.2.1