This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Error message too wide.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 18 May 2004 08:15:27 +0000 (08:15 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 18 May 2004 08:15:27 +0000 (08:15 +0000)
p4raw-id: //depot/perl@22826

perl.c

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.");
     }
 }