Subversion Repositories DevTools

Rev

Rev 359 | Rev 4184 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 359 Rev 3347
Line 460... Line 460...
460 
    $self->{match} = [];
 460 
    $self->{match} = [];
461 
 
 461 
 
462 
    foreach my $be ( @{$self->{info}} )
 462 
    foreach my $be ( @{$self->{info}} )
463 
    {
 463 
    {
464 
        next unless ( $be->{name} &&  $be->{version}  );
 464 
        next unless ( $be->{name} &&  $be->{version}  );
465 
        if ( $package eq $be->{mname} || $package eq $be->{full} )
 465 
        if ( $package eq $be->{mname} || $package eq ($be->{name} . '.' . $be->{version}) )
466 
        {
 466 
        {
467 
            push @{$self->{match}}, $be;
 467 
            push @{$self->{match}}, $be;
468 
        }
 468 
        }
469 
    }
 469 
    }
470 
 
 470