From 8a927633704d892a60d2ca6832e46c7a49632326 Mon Sep 17 00:00:00 2001 From: Elizabeth Mattijsen Date: Sat, 24 Sep 2022 00:29:33 +0200 Subject: [PATCH] Make --version and --help work as before --- Changes | 2 ++ META6.json | 6 +++--- lib/App/Rak.rakumod | 6 +++--- 3 files changed, 8 insertions(+), 6 deletions(-) diff --git a/Changes b/Changes index bc16101..34cfd0a 100644 --- a/Changes +++ b/Changes @@ -18,6 +18,8 @@ Revision history for App-Rak - Change dependency from JSON::Fast to JSON::Fast::Hyper to allow for hypering --json-per-elem - Fix issue with using a regex and --edit + - Bump dependency on META::constants for more resiliency + - Bump dependency on CLI::Version for more resiliency 0.0.96 2022-09-12T12:07:41+02:00 - Fix snafu with argument parsing rework bleeding into the distribution diff --git a/META6.json b/META6.json index 39a5a28..1be3a78 100644 --- a/META6.json +++ b/META6.json @@ -8,14 +8,14 @@ "depends": [ "as-cli-arguments:ver<0.0.6>:auth", "CLI::Help:ver<0.0.4>:auth", - "CLI::Version:ver<0.0.7>:auth", + "CLI::Version:ver<0.0.8>:auth", "Edit::Files:ver<0.0.4>:auth", "has-word:ver<0.0.3>:auth", "highlighter:ver<0.0.14>:auth", "JSON::Fast::Hyper:ver<0.0.3>:auth", + "META::constants:ver<0.0.3>:auth", "rak:ver<0.0.24>:auth", - "String::Utils:ver<0.0.12>:auth", - "META::constants:ver<0.0.2>:auth" + "String::Utils:ver<0.0.12>:auth" ], "description": "21st century grep / find / ack / ag / rg on steroids", "license": "Artistic-2.0", diff --git a/lib/App/Rak.rakumod b/lib/App/Rak.rakumod index b7184bf..7183011 100644 --- a/lib/App/Rak.rakumod +++ b/lib/App/Rak.rakumod @@ -495,7 +495,7 @@ my sub codify-extensions(*@extensions) { } # Set up the --help handler -use META::constants:ver<0.0.2>:auth $?DISTRIBUTION; +use META::constants:ver<0.0.3>:auth $?DISTRIBUTION; my sub HELP($text, @keys, :$verbose) { my $SCRIPT := $*PROGRAM.basename; my $header := "$SCRIPT - " ~ DESCRIPTION; @@ -1976,7 +1976,7 @@ my sub action-help(--> Nil) { activate-output-options; my proto sub MAIN(|) {*} use CLI::Help:ver<0.0.4>:auth %?RESOURCES, &MAIN, &HELP, 'long'; - MAIN(:help, :$verbose); # XXX pattern ? options ?? + MAIN($pattern, |@positionals, :help, :$verbose); # XXX pattern ? options ?? } my sub action-json-per-file(--> Nil) { @@ -2198,7 +2198,7 @@ my sub action-version(--> Nil) { activate-output-options; my proto sub MAIN(|) {*} - use CLI::Version:ver<0.0.7>:auth $?DISTRIBUTION, &MAIN, 'long'; + use CLI::Version:ver<0.0.8>:auth $?DISTRIBUTION, &MAIN, 'long'; MAIN(:version, :$verbose); }