Skip to content

Commit 8a3f561

Browse files
committed
fix: perl t/op/magic.t as $^X now reports abspath
1 parent 79a28e3 commit 8a3f561

File tree

1 file changed

+13
-0
lines changed

1 file changed

+13
-0
lines changed

share/5.36-cosmo3.patch

+13
Original file line numberDiff line numberDiff line change
@@ -930,3 +930,16 @@ index 6a14569758..5db5882a9c 100644
930930
perlcygwin Perl notes for Cygwin
931931
perlfreebsd Perl notes for FreeBSD
932932
perlhaiku Perl notes for Haiku
933+
diff --git a/t/op/magic.t b/t/op/magic.t
934+
index 2004a5055c..a33548c71f 100644
935+
--- a/t/op/magic.t
936+
+++ b/t/op/magic.t
937+
@@ -276,7 +276,7 @@ $$ = $pid; # Tests below use $$
938+
# $^X and $0
939+
{
940+
my $is_abs = $Config{d_procselfexe} || $Config{usekernprocpathname}
941+
- || $Config{usensgetexecutablepath};
942+
+ || $Config{usensgetexecutablepath} || ($^O eq 'cosmo');
943+
if ($^O eq 'qnx') {
944+
chomp($wd = `/usr/bin/fullpath -t`);
945+
}

0 commit comments

Comments
 (0)