Merge pull request #1395 from titsuki/fix-use-lta

Fix RT#126669
rakudo · Jan 13, 2018 · b2bf8e1 · b2bf8e1
2 parents 21bc591 + 4ec5936
commit b2bf8e1
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -1049,6 +1049,8 @@ my class X::Undeclared::Symbols does X::Comp {
                 local => "temp (or dynamic var)",
                 new => "method call syntax",
                 foreach => "for",
+                use => '"v" prefix for pragma (e.g., "use v6;", "use v6.c;")',
+                need => '"v" prefix for pragma (e.g., "need v6;", "need v6.c;")',
             }
             $r ~= "Undeclared routine" ~ (%.unk_routines.elems == 1 ?? "" !! "s") ~ ":\n";
             for %.unk_routines.sort(*.key) {

diff --git a/t/05-messages/02-errors.t b/t/05-messages/02-errors.t
@@ -2,7 +2,7 @@ use lib <t/packages/>;
 use Test;
 use Test::Helpers;
 
-plan 33;
+plan 35;
 
 # RT #132295
 
@@ -272,4 +272,15 @@ throws-like { my $r = 1..5; $r[42] = 21 }, X::Assignment::RO,
 is-run 'EVAL "*+*"', :compiler-args[<--optimize=off>],
     'optimizer flag gets propagated to EVAL';
 
+
+# RT126669
+
+throws-like { EVAL "use 6.0;" }, X::Undeclared::Symbols,
+    :message{ .contains: 'use "v" prefix for pragma (e.g., "use v6;", "use v6.c;")' },
+    'suggests to use "use v6;" or "use v6.c;" when "use 6.0" is called';
+
+throws-like { EVAL "need 6.0;" }, X::Undeclared::Symbols,
+    :message{ .contains: 'use "v" prefix for pragma (e.g., "need v6;", "need v6.c;")' },
+    'suggests to use "need v6;" or "need v6.c;" when "need 6.0" is called';
+
 # vim: ft=perl6 expandtab sw=4