develooper Front page | perl.perl5.porters | Postings from April 2013

[perl #117649] [PATCH] Refer to documentation on find2perl switch error

From:
Petr Pisar
Date:
April 17, 2013 13:21
Subject:
[perl #117649] [PATCH] Refer to documentation on find2perl switch error
Message ID:
rt-3.6.HEAD-28177-1366204868-287.117649-75-0@perl.org
# New Ticket Created by  Petr Pisar 
# Please include the string:  [perl #117649]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=117649 >


---
 x2p/find2perl.PL | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
index e9275d0..3803699 100644
--- a/x2p/find2perl.PL
+++ b/x2p/find2perl.PL
@@ -70,7 +70,8 @@ my $print_needed = 1;
 
 while (@ARGV) {
     $_ = shift;
-    s/^-// || /^[()!]/ || die "Unrecognized switch: $_\n";
+    s/^-// || /^[()!]/ || die "Unrecognized switch: $_\n",
+        "See manual or perldoc page for usage help.\n";
     if ($_ eq '(') {
         $out .= tab . "(\n";
         $indent_depth++;
@@ -236,7 +237,8 @@ while (@ARGV) {
                      qq{) || die "Can't open $fh: \$!\\n";\n};
         $init{cpio} = 1;
     } else {
-        die "Unrecognized switch: -$_\n";
+        die "Unrecognized switch: -$_\n",
+            "See manual or perldoc page for usage help.\n";
     }
 
     if (@ARGV) {
-- 
1.8.1.4




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About