Use selective exporting for MAIN

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/App/RunForPid.pm6 b/lib/App/RunForPid.pm6
index 7d45941..dbaa5a8 100644
--- a/lib/App/RunForPid.pm6
+++ b/lib/App/RunForPid.pm6
@@ -43,7 +43,7 @@ sub list-file-descriptors($pid) {
 }
 
 #| Find a pid for a window
-multi sub MAIN() is export {
+multi sub MAIN() is export(:main) {
     my $ppid = get-pid;
     my @actions = <gdb fd stdout stderr stdout&stderr>;
 
@@ -121,6 +121,6 @@ multi sub MAIN() is export {
 }
 
 #| Execute a command for a child process of $pid
-multi sub MAIN(Int $pid) is export {
+multi sub MAIN(Int $pid) is export(:main) {
     say "Running for $pid";
 }