<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">From 7b482f67b317e8de9448a84b374bd55c6e68c356 Mon Sep 17 00:00:00 2001
From: Slaven Rezic &lt;slaven@rezic.de&gt;
Date: Mon, 25 Jan 2016 07:55:16 +0000
Subject: [PATCH] perl 5.23.x compat (RT #106900)

---
 Fork.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Fork.pm b/Fork.pm
index 73791cd..f71da06 100644
--- a/Fork.pm
+++ b/Fork.pm
@@ -627,7 +627,7 @@ sub new_exec {
 
    unless (defined $PERL) {
       # first find path of perl
-      my $perl = $;
+      my $perl = $^X;
 
       # first we try $^X, but the path must be absolute (always on win32), and end in sth.
       # that looks like perl. this obviously only works for posix and win32
-- 
2.1.2

</pre></body></html>