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