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

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);'
[download]

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");
[download]

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 ...

Comment on Re^4: Getopt::Long case matching last wins Select or Download Code

Replies are listed 'Best First'.
Re^5: Getopt::Long case matching last wins by hv (Prior) on May 30, 2023 at 22:42 UTC
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?	[reply]
Re^6: Getopt::Long case matching last wins by karlberry (Sexton) on Jun 02, 2023 at 22:40 UTC
I did that: https://github.com/Perl/perl5/issues/21134 Thanks.	[reply]


laziness, impatience, and hubris
	PerlMonks