Error message too wide.

p4raw-id: //depot/perl@22826

diff --git a/perl.c b/perl.c
index e4301a0..38766c5 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3125,11 +3125,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.");
     }
 }