diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-09-21 15:33:09 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-09-27 22:25:05 +0200 |
| commit | ae60cb464cebf89579ec0ff91db8b792b2f1e7cd (patch) | |
| tree | fc1ab2f4a1d4d5360ffaf2df304bfe7c03f8c76c /t/op/magic.t | |
| parent | 2982a345b7a1edb63720282eef0fba5c61d0e6b5 (diff) | |
| download | perl-ae60cb464cebf89579ec0ff91db8b792b2f1e7cd.tar.gz | |
Where available, use _NSGetExecutablePath() to make $^X absolute.
In Configure, check whether _NSGetExecutablePath() can be used to find the
absolute pathname of the executable. If so, set usensgetexecutablepath in
config.sh and USE_NSGETEXECUTABLEPATH in config.h. If this is set, then use
this approach in S_set_caret_X() to canonicalise $^X as an absolute
path. This approach works on OS X, and possible on other platforms that
use dyld.
Diffstat (limited to 't/op/magic.t')
| -rw-r--r-- | t/op/magic.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 5569154fcd..8c2c508f57 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -230,7 +230,8 @@ $$ = $pid; # Tests below use $$ # $^X and $0 { - my $is_abs = $Config{d_procselfexe} || $Config{usekernprocpathname}; + my $is_abs = $Config{d_procselfexe} || $Config{usekernprocpathname} + || $Config{usensgetexecutablepath}; if ($^O eq 'qnx') { chomp($wd = `/usr/bin/fullpath -t`); } |