Subversion Repositories DevTools

Rev

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

Rev 419 Rev 421
Line 1475... Line 1475...
1475 
                    #   Assume that the soname is shorter than the realname
 1475 
                    #   Assume that the soname is shorter than the realname
1476 
                    #
 1476 
                    #
1477 
                    my %sieve;
 1477 
                    my %sieve;
1478 
                    foreach ( glob ( $sfile )  )
 1478 
                    foreach ( glob ( $sfile )  )
1479 
                    {
 1479 
                    {
1480 
                        m~(.*\.so\.)(.*)~;
 1480 
                        m~(.*\.so\.)([\d\.]*\d)$~;
- 
 
 1481 
                        if ( $1 )
- 
 
 1482 
                        {
1481 
                        my $file = $1;
 1483 
                            my $file = $1;
1482 
                        my $len = exists $sieve{$file} ? length($sieve{$file}) : 0;
 1484 
                            my $len = exists $sieve{$file} ? length($sieve{$file}) : 0;
1483 
                        $sieve{$file} = $_
 1485 
                            $sieve{$file} = $_
1484 
                            if ( $len == 0 || length($_) > $len );
 1486 
                                if ( $len == 0 || length($_) > $len );
- 
 
 1487 
                        }
1485 
                    }
 1488 
                    }
1486 
 
 1489 
 
1487 
                    push @done, values %sieve;
 1490 
                    push @done, values %sieve;
1488 
                }
 1491 
                }
1489 
            }
 1492 
            }