* speclib: Use a more robust method to derive full file path.
This commit is contained in:
parent
59328e28c4
commit
1318037e44
|
@ -1,3 +1,7 @@
|
|||
2009-04-10 Christopher Faylor <me+cygwin@cgf.cx>
|
||||
|
||||
* speclib: Use a more robust method to derive full file path.
|
||||
|
||||
2009-04-09 Christopher Faylor <me+cygwin@cgf.cx>
|
||||
|
||||
* speclib: Semi-revert to previous version but don't try to generate
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
use Getopt::Long;
|
||||
use File::Temp qw'tempdir';
|
||||
use File::Basename;
|
||||
use Cwd;
|
||||
use File::Spec;
|
||||
use strict;
|
||||
|
||||
sub dllname($;$);
|
||||
|
@ -14,8 +14,8 @@ GetOptions('static!'=>\$static, 'v|exclude!'=>\$exclude);
|
|||
|
||||
my $nm = shift;
|
||||
my $ar = shift;
|
||||
my $libdll = Cwd::abs_path(shift @ARGV);
|
||||
my $lib = Cwd::abs_path(pop @ARGV);
|
||||
my $libdll = File::Spec->rel2abs(shift @ARGV);
|
||||
my $lib = File::Spec->rel2abs(pop @ARGV);
|
||||
|
||||
open my $nm_fd, '-|', $nm, '-Ap', '--defined-only', @ARGV, $libdll or
|
||||
die "$0: execution of $nm for object files failed - $!\n";
|
||||
|
|
Loading…
Reference in New Issue