Make --version and --help work as before

lizmat · Sep 23, 2022 · 8a92763 · 8a92763
1 parent 275769f
commit 8a92763
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 6 deletions.
diff --git 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
@@ -8,14 +8,14 @@
   "depends": [
     "as-cli-arguments:ver<0.0.6>:auth<zef:lizmat>",
     "CLI::Help:ver<0.0.4>:auth<zef:lizmat>",
-    "CLI::Version:ver<0.0.7>:auth<zef:lizmat>",
+    "CLI::Version:ver<0.0.8>:auth<zef:lizmat>",
     "Edit::Files:ver<0.0.4>:auth<zef:lizmat>",
     "has-word:ver<0.0.3>:auth<zef:lizmat>",
     "highlighter:ver<0.0.14>:auth<zef:lizmat>",
     "JSON::Fast::Hyper:ver<0.0.3>:auth<zef:lizmat>",
+    "META::constants:ver<0.0.3>:auth<zef:lizmat>",
     "rak:ver<0.0.24>:auth<zef:lizmat>",
-    "String::Utils:ver<0.0.12>:auth<zef:lizmat>",
-    "META::constants:ver<0.0.2>:auth<zef:lizmat>"
+    "String::Utils:ver<0.0.12>:auth<zef:lizmat>"
   ],
   "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
@@ -495,7 +495,7 @@ my sub codify-extensions(*@extensions) {
 }
 
 # Set up the --help handler
-use META::constants:ver<0.0.2>:auth<zef:lizmat> $?DISTRIBUTION;
+use META::constants:ver<0.0.3>:auth<zef:lizmat> $?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<zef:lizmat> %?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<zef:lizmat> $?DISTRIBUTION, &MAIN, 'long';
+    use CLI::Version:ver<0.0.8>:auth<zef:lizmat> $?DISTRIBUTION, &MAIN, 'long';
     MAIN(:version, :$verbose);
 }