| Subject: | defined @array deprecated in perl 5.6 |
Hi, defined @array is deprecated since perl 5.5 and now will emit an official warning in 5.15.7.
It turns out that defined @array probably doesn't do what you want anyways:
defined(@array) changes depending on if the array has EVER been of non-zero size
Patch is attached.
| Subject: | Getopt-Euclid-0.3.4.patch |
commit b9a2ca7054a98cf130d805f6ff53ce15048df15a
Author: Todd Rinaldo <toddr@cpanel.net>
Date: Wed Feb 15 16:56:03 2012 -0600
Do not match \u with \E since \u doesn't match with it. Did you mean \U ?
diff --git a/lib/Getopt/Euclid.pm b/lib/Getopt/Euclid.pm
index 37cfc36..e328248 100644
--- a/lib/Getopt/Euclid.pm
+++ b/lib/Getopt/Euclid.pm
@@ -492,10 +492,10 @@ sub _process_prog_pod {
$usage .= " $SCRIPT_NAME --version\n";
# Help message
- $help = "=head1 \L\uUsage:\E\E\n\n$usage\n";
- $help .= "=head1 \L\u$req_name:\E\E\n\n$required\n\n"
+ $help = "=head1 \L\uUsage:\E\n\n$usage\n";
+ $help .= "=head1 \L\u$req_name:\E\n\n$required\n\n"
if ( $req_name || q{} ) =~ /\S/;
- $help .= "=head1 \L\u$opt_name:\E\E\n\n$options\n\n"
+ $help .= "=head1 \L\u$opt_name:\E\n\n$options\n\n"
if ( $opt_name || q{} ) =~ /\S/;
$usage = "Usage:\n".$usage;