die when trying to import a tag that is not exported

rakudo · May 8, 2012 · b6fe916 · b6fe916
1 parent e51b93b
commit b6fe916
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -796,6 +796,10 @@ grammar Perl6::Grammar is HLL::Grammar {
                         if pir::exists($EXPORT, $tag) {
                             $*W.import($EXPORT{$tag}, $package_source_name);
                         }
+                        else {
+                            nqp::die("Error while importing from '$package_source_name': no such tag '$tag'");
+
+                        }
                     }
                     else {
                         nqp::die('Can only import named tags for now');