X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=f6c3931d39b202f2eb2629013bcdc6f5a81550ad;hb=1f29050e2eb08bf295614d688f7af7d12afe73f6;hp=4eb5148b5e6310cdc487c3133f3d4d13a59b4077;hpb=cc69b689ee7c274593c3c386a61a06ecb909431c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 4eb5148..f6c3931 100644
--- a/perl.c
+++ b/perl.c
@@ -3222,10 +3222,11 @@ Perl_moreswitches(pTHX_ const char *s)
 	{
 	    SV* level= vstringify(PL_patchlevel);
 #ifdef PERL_PATCHNUM
-	    SV* num= newSVpvn(PERL_PATCHNUM,sizeof(PERL_PATCHNUM)-1);
-#ifdef PERL_GIT_UNCOMMITTED_CHANGES
-	    sv_catpvs(num, "*");
-#endif
+#  ifdef PERL_GIT_UNCOMMITTED_CHANGES
+	    SV *num = newSVpvs(PERL_PATCHNUM "*");
+#  else
+	    SV *num = newSVpvs(PERL_PATCHNUM);
+#  endif
 
 	    if (sv_len(num)>=sv_len(level) && strnEQ(SvPV_nolen(num),SvPV_nolen(level),sv_len(level))) {
 		SvREFCNT_dec(level);
@@ -3514,7 +3515,7 @@ S_open_script(pTHX_ const char *scriptname, bool dosearch,
     PERL_ARGS_ASSERT_OPEN_SCRIPT;
 
     if (PL_e_script) {
-	PL_origfilename = (PL_minus_E ? savepvs("-E") : savepvs( "-e" ));
+	PL_origfilename = savepvs("-e");
     }
     else {
 	/* if find_script() returns, it returns a malloc()-ed value */