From bccf3f648120d007966e22deffcff5c9fe2f7fca Mon Sep 17 00:00:00 2001
From: chee <chee@snoot.club>
Date: Sun, 24 Feb 2019 18:26:49 +0000
Subject: [PATCH] Allow positionals to be named anywhere

---
 bin/tarballs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/tarballs b/bin/tarballs
index 7645533..b5c63f3 100755
--- a/bin/tarballs
+++ b/bin/tarballs
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl6
+my %*SUB-MAIN-OPTS = :named-anywhere;
 use OpenSSL::CryptTools;
 my $iv = %*ENV<tarballs_iv>;
 my $key = %*ENV<tarballs_key>;
@@ -73,7 +74,7 @@ multi MAIN (
 		}
 		post -> {
 			request-body -> (:$pathword, :$ball, *%rest) {
-				my $path = "{$prefix}/{decrypt-pathword($pathword.Str)}{$suffix}";
+				my $path = "{$prefix}/{decrypt-pathword($pathword.Str)}/{$suffix}";
 				my $filename = $ball.filename;
 				untar($ball.body-blob, $path);
 				content ｢text/plain｣, ｢thanks｣;