tr-closure-troubles

use v6;

my $match;
my $call = { say "in call: " ~ $0 };

sub set-match {
    "abc" ~~ /(.)/;
    $match = $/;
}

sub get-match {
    $/ := $match;
    say "in get-match: $/";
    $call();
}

set-match;
say "match: " ~ $match;
get-match;
say "match: " ~ $match;