This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Clarify "require <>"-message.
authorNorman Koch <kochnorman@rocketmail.com>
Sat, 31 May 2014 01:31:29 +0000 (03:31 +0200)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 31 May 2014 01:31:29 +0000 (03:31 +0200)
Changed "<> should be quotes" to "<> at require-statement should be
quotes".  This way, when someone writes "require <Module>", it is way
easier to find the specific command that caused this.

AUTHORS
pod/perldiag.pod
t/op/require_errors.t
toke.c

diff --git a/AUTHORS b/AUTHORS
index 0ff31c1..fd619b0 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -875,6 +875,7 @@ Nobuhiro Iwamatsu
 Noirin Shirley                 <colmsbook@nerdchic.net>
 Norbert Pueschel               <pueschel@imsdd.meb.uni-bonn.de>
 Norio Suzuki                   <kipp@shonanblue.ne.jp>
+Norman Koch                    <kochnorman@rocketmail.com>
 Norton T. Allen                        <allen@huarp.harvard.edu>
 Nuno Carvalho                  <mestre.smash@gmail.com>
 Offer Kaye                     <offer.kaye@gmail.com>
index 0ccf5fb..848b1d5 100644 (file)
@@ -5019,7 +5019,7 @@ take the risk of using this feature, simply disable this warning:
 interpreted as the != (numeric not equal) and ~ (1's complement)
 operators: probably not what you intended.
 
-=item <> should be quotes
+=item <> at require-statement should be quotes
 
 (F) You wrote C<< require <file> >> when you should have written
 C<require 'file'>.
index ec7a122..a152d2d 100644 (file)
@@ -55,7 +55,7 @@ for my $file ("$nonfile.ph", ".ph") {
 }
 
 eval 'require <foom>';
-like $@, qr/^<> should be quotes at /, 'require <> error';
+like $@, qr/^<> at require-statement should be quotes at /, 'require <> error';
 
 my $module   = tempfile();
 my $mod_file = "$module.pm";
diff --git a/toke.c b/toke.c
index ec55fbe..692ab11 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -8509,7 +8509,7 @@ Perl_yylex(pTHX)
                    gv_stashpvn(PL_tokenbuf, strlen(PL_tokenbuf),
                                 GV_ADD | (UTF ? SVf_UTF8 : 0));
                else if (*s == '<')
-                   yyerror("<> should be quotes");
+                   yyerror("<> at require-statement should be quotes");
            }
            if (orig_keyword == KEY_require) {
                orig_keyword = 0;