summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorJim Cromie <jcromie@cpan.org>2004-07-21 05:21:50 -0600
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-07-22 13:15:12 +0000
commitfa3aa65a5ab84a4dd986ed927a8fcbf6d6dfcf43 (patch)
tree9b1e7406317c17394da5e4a7c64771254ce4354a /perl.c
parentae66550fab0bda6873f03245e4b9b035b8f35026 (diff)
downloadperl-fa3aa65a5ab84a4dd986ed927a8fcbf6d6dfcf43.tar.gz
Re: "Too late for -T" could be more descriptive
Message-ID: <40FEA62E.2010809@divsol.com> (with tweaks) p4raw-id: //depot/perl@23150
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl.c b/perl.c
index 7eb121e088..d818f501e1 100644
--- a/perl.c
+++ b/perl.c
@@ -3126,9 +3126,8 @@ 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),
- ".\nUse -S to search $PATH for it.");
+ Perl_croak(aTHX_ "Can't open perl script \"%s\": %s\n",
+ CopFILE(PL_curcop), Strerror(errno));
}
}