From 503855c00985ab75461f2b3f233a2a1201c362cc Mon Sep 17 00:00:00 2001
From: Reini Urban <rurban@cpanel.net>
Date: Mon, 23 Apr 2012 14:47:37 -0500
Subject: [PATCH] set a better $^X than just perl - should we?

---
 lib/B/C.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/lib/B/C.pm b/lib/B/C.pm
index e6714de5c..d6627c519 100644
--- a/lib/B/C.pm
+++ b/lib/B/C.pm
@@ -5142,11 +5142,7 @@ EOT
     print <<"EOT";
     if ((tmpgv = gv_fetchpv("\030", TRUE, SVt_PV))) {/* $^X */
         tmpsv = GvSVn(tmpgv);
-#ifdef WIN32
-        sv_setpv(tmpsv,"perl.exe");
-#else
-        sv_setpv(tmpsv,"perl");
-#endif
+        sv_setpv(tmpsv,"$^X");
         SvSETMAGIC(tmpsv);
     }