Subversion Repositories DevTools

Rev

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

Rev 417 Rev 419
Line 1461... Line 1461...
1461 
                Verbose2("LocateLibFile: $sfile");
 1461 
                Verbose2("LocateLibFile: $sfile");
1462 
                if ( $exact )
 1462 
                if ( $exact )
1463 
                {
 1463 
                {
1464 
                    push @done, $sfile if ( -f $sfile || -l $sfile );
 1464 
                    push @done, $sfile if ( -f $sfile || -l $sfile );
1465 
                }
 1465 
                }
1466 
                else
 1466 
                elsif ($num_dll)
1467 
                {
 1467 
                {
1468 
                    push @done, glob ( $sfile );
 1468 
                    push @done, glob ( $sfile );
1469 
                }
 1469 
                }
- 
 
 1470 
                else
- 
 
 1471 
                {
- 
 
 1472 
                    #
- 
 
 1473 
                    #   Looking for .so files
- 
 
 1474 
                    #   Filter out the soname so files
- 
 
 1475 
                    #   Assume that the soname is shorter than the realname
- 
 
 1476 
                    #
- 
 
 1477 
                    my %sieve;
- 
 
 1478 
                    foreach ( glob ( $sfile )  )
- 
 
 1479 
                    {
- 
 
 1480 
                        m~(.*\.so\.)(.*)~;
- 
 
 1481 
                        my $file = $1;
- 
 
 1482 
                        my $len = exists $sieve{$file} ? length($sieve{$file}) : 0;
- 
 
 1483 
                        $sieve{$file} = $_
- 
 
 1484 
                            if ( $len == 0 || length($_) > $len );
- 
 
 1485 
                    }
- 
 
 1486 
 
- 
 
 1487 
                    push @done, values %sieve;
- 
 
 1488 
                }
1470 
            }
 1489 
            }
1471 
        }
 1490 
        }
1472 
    }
 1491 
    }
1473 
 
 1492 
 
1474 
    Error ("ResolveLibFile: File not found: $file", "Search Path:", @path)
 1493 
    Error ("ResolveLibFile: File not found: $file", "Search Path:", @path)