sub rev_compare
{
    my $section = shift;
    my $main = shift;

    return 1 if $section eq '*' or $main eq '*';

    my @section = split /\./, $section;
    my @main    = split /\./, $main;

    return  ($section[0] == $main[0])
            && (($section[1] eq '*' && $main[1] eq '*')
                || $section[1] == $main[1]);
}