Error message too wide.

p4raw-id: //depot/perl@22826

1 files changed, 4 insertions, 5 deletions

diff --git a/perl.c b/perl.c
index e4301a0b91..38766c5da9 100644
--- 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.");
     }
 }