Data-Dumper --> Data/Dumper for VMS extension list as well.

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index 4eb5148..f6c3931 100644 (file)
--- 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 */