perl_checker fix

1 files changed, 1 insertions, 1 deletions

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->[$_]})) {