| Subject: | Getopt::Euclid prints errror/usage on perl -c |
I have a script with "REQUIRED ARGUMENTS" set and when I run perl -wc on
it I get the error/usage message, instead of "syntax ok".
I've added "return if $^C" to the begin sub and that fixed things for me
(see diff). I ran all the module tests and everything still passed.
Hope this is of some use.
| Subject: | Getopt-Euclid-v.0.2.0.diff |
% diff lib/Getopt/Euclid.pm blib/lib/Getopt/Euclid.pm
41a42
> return if $^C;
loninwebd1:~/Getopt-Euclid-v0.2.0% diff -u lib/Getopt/Euclid.pm blib/lib/Getopt/Euclid.pm
--- lib/Getopt/Euclid.pm 2009-05-27 10:06:34.419397760 +0100
+++ blib/lib/Getopt/Euclid.pm 2009-05-27 09:55:28.000000000 +0100
@@ -39,6 +39,7 @@
}
sub import {
+ return if $^C;
shift @_;
my $minimal_keys;
my $vars_prefix;