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

diff --git a/winsup/cygwin/ChangeLog b/winsup/cygwin/ChangeLog
index 8a9a7692104cb5ad4640fd3f325b717627615769..6831ea1b526eac92e14d870bd6e91177b966c9a9 100644 (file)
--- a/winsup/cygwin/ChangeLog
+++ b/winsup/cygwin/ChangeLog
@@ -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

diff --git a/winsup/cygwin/speclib b/winsup/cygwin/speclib
index e1e9ebcad03a671b9dfc9573c483df5f6a4d4438..b26644a1ff50b43758a9850e819373ec6ca206c7 100755 (executable)
--- a/winsup/cygwin/speclib
+++ b/winsup/cygwin/speclib
@@ -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";