Permalink
Browse files

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

  • Loading branch information...
Reini Urban
Reini Urban committed Apr 23, 2012
1 parent b454580 commit 503855c00985ab75461f2b3f233a2a1201c362cc
Showing with 1 addition and 5 deletions.
  1. +1 −5 lib/B/C.pm
View
@@ -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);
}

0 comments on commit 503855c

Please sign in to comment.