| Subject: | precedence issue warning with perl 5.20.0 (patch) |
| Date: | Sun, 03 Aug 2014 17:31:43 -0700 |
| To: | bug-Getopt-Auto [...] rt.cpan.org |
| From: | Frossie <fe [...] chez-geek.net> |
Patch below pacifies this warning (seen with perl 5.20.0):
Possible precedence issue with control flow operator at
/home/arcsoft/perl5/perlbrew/perls/perl-5.20.0/lib/site_perl/5.20.0/Getopt/Auto.pm
line 564.
--- Auto.pm.orig 2014-08-03 17:27:19.832943895 -0700
+++ Auto.pm 2014-08-03 17:17:01.201949216 -0700
@@ -560,8 +560,8 @@
sub _is_registered {
my $arg = shift;
- return ( exists $options{$arg} )
- and ( exists $options{$arg}{'registered'} );
+ return (( exists $options{$arg} )
+ and ( exists $options{$arg}{'registered'} ));
}
sub _notreg {
--
Frossie
fe@chez-geek.net