From 6a83e0d27f2871f248fa35afcae2897ca20488a3 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Tue, 16 Jul 2024 10:29:05 +1000
Subject: [PATCH] test-dist-modules.pl: update usage(), exit on usage

---
 Porting/test-dist-modules.pl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/Porting/test-dist-modules.pl b/Porting/test-dist-modules.pl
index 54088b4b8941..013f10a6640a 100644
--- a/Porting/test-dist-modules.pl
+++ b/Porting/test-dist-modules.pl
@@ -16,7 +16,7 @@
            "s|separate" => \$separate,
            "i|install"  => \$install,
            "h|help"     => \&usage)
-  or die "Unknown options\n";
+  or usage("Unknown options");
 
 $separate
   and warn "-s / -separate is now the default\n";
@@ -301,8 +301,8 @@ sub usage {
  -c | -continue
      Continue processing after failures
      Devel::PPPort must successfully build to continue.
- -s | -separate
-     Install to a work path, not to perl's site_perl.
+ -i | -install
+     Install to perl's site_perl.
  -h | -help
      Display this message.
 
@@ -312,12 +312,13 @@ sub usage {
 
 Test all of the distributions, stop on the first failure:
 
-   $^X $0 -s
+   $^X $0
 
 Test the various threads distributions, continue on failure:
 
-   $^X $0 -s -c threads threads-shared Thread-Queue Thread-Semaphore
+   $^X $0 -c threads threads-shared Thread-Queue Thread-Semaphore
 EOS
+    exit;
 }
 
 __DATA__