diff --git a/bin/tarballs b/bin/tarballs index b5c63f3..96bda35 100755 --- a/bin/tarballs +++ b/bin/tarballs @@ -35,7 +35,7 @@ sub decrypt-pathword ($pathword) { } sub untar (Blob $tarball, Str $path) { - my $tar = Proc::Async.new: :w, 「tar」, 「--strip」, 「1」, 「-U」, 「-C」, $path, 「-xzv」; + my $tar = Proc::Async.new: :w, 「tar」, 「-U」, 「-C」, $path, 「-xzv」; my $completion = $tar.start; $tar.write($tarball); $tar.close-stdin;