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)