From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 18 May 2004 08:15:27 +0000 (+0000)
Subject: Error message too wide.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=447218f8e55820af4787908b91600ccbddafa327;p=p5sagit%2Fp5-mst-13.2.git

Error message too wide.

p4raw-id: //depot/perl@22826
---

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