Subversion Repositories DevTools

Rev

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

Rev 427 Rev 429
Line 1396... Line 1396...
1396 
                $sfile = "$root/$subdir$type/$file";
 1396 
                $sfile = "$root/$subdir$type/$file";
1397 
                $sfile =~ s~//~/~g;
 1397 
                $sfile =~ s~//~/~g;
1398 
                Verbose2("LocateBinFile: $sfile");
 1398 
                Verbose2("LocateBinFile: $sfile");
1399 
                if ( $wildcard )
 1399 
                if ( $wildcard )
1400 
                {
 1400 
                {
1401 
                    push @done, glob ( $sfile );
 1401 
                    foreach  ( glob ( $sfile ) )
- 
 
 1402 
                    {
- 
 
 1403 
                        next if ( m~\.dbg$~ );
- 
 
 1404 
                        push @done, $_;
- 
 
 1405 
                    }
1402 
                }
 1406 
                }
1403 
                else
 1407 
                else
1404 
                {
 1408 
                {
1405 
                    push @done, $sfile if ( -f $sfile || -l $sfile )
 1409 
                    push @done, $sfile if ( -f $sfile || -l $sfile )
1406 
                }
 1410 
                }
Line 1521... Line 1525...
1521 
                {
 1525 
                {
1522 
                    #
 1526 
                    #
1523 
                    #   Looking for .so files
 1527 
                    #   Looking for .so files
1524 
                    #   Filter out the soname so files
 1528 
                    #   Filter out the soname so files
1525 
                    #   Assume that the soname is shorter than the realname
 1529 
                    #   Assume that the soname is shorter than the realname
- 
 
 1530 
                    #       Ignore .dbg files.
1526 
                    #
 1531 
                    #
1527 
                    my %sieve;
 1532 
                    my %sieve;
1528 
                    foreach ( glob ( $sfile )  )
 1533 
                    foreach ( glob ( $sfile )  )
1529 
                    {
 1534 
                    {
- 
 
 1535 
                        next if ( m~\.dbg$~ );
1530 
                        m~(.*\.so\.)([\d\.]*\d)$~;
 1536 
                        m~(.*\.so\.)([\d\.]*\d)$~;
1531 
                        if ( $1 )
 1537 
                        if ( $1 )
1532 
                        {
 1538 
                        {
1533 
                            my $file = $1;
 1539 
                            my $file = $1;
1534 
                            my $len = exists $sieve{$file} ? length($sieve{$file}) : 0;
 1540 
                            my $len = exists $sieve{$file} ? length($sieve{$file}) : 0;