* speclib: Use a more robust method to derive full file path.

This commit is contained in:
Christopher Faylor 2009-04-10 04:29:25 +00:00
parent 59328e28c4
commit 1318037e44
2 changed files with 7 additions and 3 deletions

View File

@ -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

View File

@ -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";