Move THE_END to Rakudo::Internals

rakudo · Oct 6, 2015 · c981530 · c981530
1 parent 68f233a
commit c981530
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -272,7 +272,7 @@ do {
                 nqp::printfh($err, $e.Str);
                 nqp::printfh($err, "\n");
             }
-            THE_END();
+            Rakudo::Internals::THE_END();
             CONTROL { when CX::Warn { .resume } }
         }
         if $! {

diff --git a/src/core/Rakudo/Internals.pm b/src/core/Rakudo/Internals.pm
@@ -81,6 +81,12 @@ my module Rakudo::Internals {
         }
         0;
     }
+
+    our sub THE_END {
+        my @END := nqp::p6bindattrinvres(nqp::create(List), List, '$!reified',
+            nqp::getcurhllsym("@END_PHASERS"));
+        for @END -> $end { $end() };
+    }
 }
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -241,18 +241,12 @@ sub exit($status = 0) {
     $exit = $status;
 
     once {
-        THE_END();
+        Rakudo::Internals::THE_END();
         nqp::exit(nqp::unbox_i($exit.Int));
     }
     $exit;
 }
 
-sub THE_END {
-    my @END := nqp::p6bindattrinvres(nqp::create(List), List, '$!reified',
-        nqp::getcurhllsym("@END_PHASERS"));
-    for @END -> $end { $end() };
-}
-
 constant Inf = nqp::p6box_n(nqp::inf());
 constant NaN = nqp::p6box_n(nqp::nan());