Finding a way to put "I'm MAINT" in perl -v is a TODO

[perl5.git] / perl.c

diff --git a/perl.c b/perl.c
index e4301a0..f387cf1 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1364,7 +1364,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
                    sv_catpv(PL_Sv,"\"  Locally applied patches:\\n\",");
                    for (i = 1; i <= LOCAL_PATCH_COUNT; i++) {
                        if (PL_localpatches[i])
-                           Perl_sv_catpvf(aTHX_ PL_Sv,"q\"  \t%s\n\",",PL_localpatches[i]);
+                           Perl_sv_catpvf(aTHX_ PL_Sv,"q%c\t%s\n%c,",
+                                   0, PL_localpatches[i], 0);
                    }
                }
 #endif
@@ -3125,11 +3126,10 @@ S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv)
     }
 #endif /* IAMSUID */
     if (!PL_rsfp) {
-/* PSz 16 Sep 03  Keep neat error message */
-        
-            Perl_croak(aTHX_ "Can't open perl script \"%s\": %s%s\n",
-                       CopFILE(PL_curcop), Strerror(errno),
-                      ".  Use -S to search $PATH for it");
+       /* PSz 16 Sep 03  Keep neat error message */
+       Perl_croak(aTHX_ "Can't open perl script \"%s\": %s%s\n",
+               CopFILE(PL_curcop), Strerror(errno),
+               ".\nUse -S to search $PATH for it.");
     }
 }
 
@@ -4616,7 +4616,7 @@ Perl_my_failure_exit(pTHX)
            STATUS_NATIVE_SET(44);
     }
     else {
-       if (!vaxc$errno && errno)       /* unlikely */
+       if (!vaxc$errno)                /* unlikely */
            STATUS_NATIVE_SET(44);
        else
            STATUS_NATIVE_SET(vaxc$errno);