set a better $^X than just perl - should we?

rurban · Apr 30, 2012 · 503855c · 503855c
1 parent b454580
commit 503855c
Showing 1 changed file with 1 addition and 5 deletions.
diff --git 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,"$^X");
-        sv_setpv(tmpsv,"perl.exe");
-#else
-        sv_setpv(tmpsv,"perl");
-#endif
         SvSETMAGIC(tmpsv);
     }