From 00ddde1541d68bf1398f7e176082622ecfd27cda Mon Sep 17 00:00:00 2001
From: Matias Linares <matiaslina@gmail.com>
Date: Sat, 11 Jul 2020 20:16:11 -0300
Subject: Use selective exporting for MAIN

---
 lib/App/RunForPid.pm6 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

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";
 }
-- 
cgit v1.2.3-70-g09d2