Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re^3: Getopt::Long case matching last wins

by hippo (Bishop)
on May 30, 2023 at 14:28 UTC ( [id://11152521]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Getopt::Long case matching last wins
in thread Getopt::Long case matching last wins

Interestingly it does flag the aliases for me:

$ perl -MGetopt::Long -we 'GetOptions ("a|x" => \$x, "A|y" => \$y);' Name "main::y" used only once: possible typo at -e line 1. Name "main::x" used only once: possible typo at -e line 1. Duplicate specification "A|y" for option "a" $ perl -MGetopt::Long -we 'GetOptions ("a|x" => \$x, "b|X" => \$y);' Name "main::y" used only once: possible typo at -e line 1. Name "main::x" used only once: possible typo at -e line 1. Duplicate specification "b|X" for option "x"

So if either the primary or the alias is non-unique in a case-insensitive way, the warning is shown. I'm using version 2.52 of Getopt::Long.


🦛

Replies are listed 'Best First'.
Re^4: Getopt::Long case matching last wins
by karlberry (Sexton) on May 30, 2023 at 21:26 UTC
    I'm also using Getopt::Long 2.52 (and perl 5.36.1). I also get the warning with your invocation. But my original code does not get a warning.

    After adding debugging lines to Getopt/Long.pm, I see it's because use warnings does not set $^W (in contrast to the -w option that you used, which does). As in:

    perl -M'Getopt::Long -e 'use warnings; my ($x,$y); GetOptions ("v" => +\$x, "V" => \$y);'
    Getopt::Long uses $^W to decide if the warnings should be reported ($dups is the built-up string of warnings, which is correctly set):
    if ( $dups && $^W ) { foreach ( split(/\n+/, $dups) ) { warn($_."\n");

    Judging from https://perldoc.perl.org/warnings#Reporting-Warnings-from-a-Module, I guess Getopt::Long should not (solely?) be looking at $^W nowadays?

    Grepping the 5.36.1/ directory, I see some 30 other cases of "if.*\$\^W". So the end result is apparently that a few warnings in core modules are missed when using "use warnings", but shown when using -w ...

      I think it likely that the majority of those 30-odd cases (including Getopt::Long) are bugs, though it isn't clear how they should be handled in a world of lexical warnings. Please could you raise an issue ("New issue" here) so that the perl porters can start to consider it for 5.40?

        I did that: https://github.com/Perl/perl5/issues/21134 Thanks.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11152521]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2024-03-29 05:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found