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;