Subversion Repositories DevTools

Rev

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

Rev 4139 Rev 4143
Line 1406... Line 1406...
1406 
                Verbose2("LocateBinFile: $sfile");
 1406 
                Verbose2("LocateBinFile: $sfile");
1407 
                if ( $wildcard )
 1407 
                if ( $wildcard )
1408 
                {
 1408 
                {
1409 
                    foreach  ( glob ( $sfile ) )
 1409 
                    foreach  ( glob ( $sfile ) )
1410 
                    {
 1410 
                    {
- 
 
 1411 
                        # Ignore .dbg (vix) and .debug (qt) files.
1411 
                        next if ( m~\.dbg$~ );
 1412 
                        next if ( m~\.dbg$~ );
- 
 
 1413 
                        next if ( m~\.debug$~ );
1412 
                        push @done, $_;
 1414 
                        push @done, $_;
1413 
                    }
 1415 
                    }
1414 
                }
 1416 
                }
1415 
                else
 1417 
                else
1416 
                {
 1418 
                {
Line 1533... Line 1535...
1533 
                {
 1535 
                {
1534 
                    #
 1536 
                    #
1535 
                    #   Looking for .so files
 1537 
                    #   Looking for .so files
1536 
                    #   Filter out the soname so files
 1538 
                    #   Filter out the soname so files
1537 
                    #   Assume that the soname is shorter than the realname
 1539 
                    #   Assume that the soname is shorter than the realname
1538 
                    #       Ignore .dbg files.
 1540 
                    #       Ignore .dbg (vix) and .debug (qt) files.
1539 
                    #
 1541 
                    #
1540 
                    my %sieve;
 1542 
                    my %sieve;
1541 
                    foreach ( glob ( $sfile )  )
 1543 
                    foreach ( glob ( $sfile )  )
1542 
                    {
 1544 
                    {
1543 
                        next if ( m~\.dbg$~ );
 1545 
                        next if ( m~\.dbg$~ );
- 
 
 1546 
                        next if ( m~\.debug$~ );
1544 
                        m~(.*\.so\.)([\d\.]*\d)$~;
 1547 
                        m~(.*\.so\.)([\d\.]*\d)$~;
1545 
                        if ( $1 )
 1548 
                        if ( $1 )
1546 
                        {
 1549 
                        {
1547 
                            my $file = $1;
 1550 
                            my $file = $1;
1548 
                            my $len = exists $sieve{$file} ? length($sieve{$file}) : 0;
 1551 
                            my $len = exists $sieve{$file} ? length($sieve{$file}) : 0;