[Cooker] urpmq and other archs

[Stefan van der Eijk]

I've made a script that uses urpmq. Recently the output of my script is incorrect on my alpha (but correct on my intel) and I get the following error (on the alpha):

Can't call method "arch" on an undefined value at /usr/lib/perl5/site_perl/5.6.1/urpm.pm line 1637.

Here is the part of urpm.pm, with line 1637 in bold:

            foreach my $pkg (@pre_choices) {
                push @choices, $pkg;

                $pkg->arch eq 'src' and return;
                unless ($options{keep_alldeps} || exists $installed{$pkg->id}) {
                    $db->traverse_tag('name', [ $pkg->name ], sub {
                                          my ($p) = @_;
                                          $installed{$pkg->id} ||= $pkg->compare
_pkg($p) <= 0;
                                      });