| Subject: | Unable to run under debugger with alternative variant |
| Date: | Sun, 27 Sep 2015 17:04:41 +0200 |
| To: | bug-Getopt-Euclid [...] rt.cpan.org |
| From: | Daniel Dehennin <daniel.dehennin [...] baby-gnu.org> |
Hello,
I'm unable to run a program under perl debugger.
It display a traceback finishing by the error:
Unknown argument: --message hello
I finally found that using an alternative variant of argument results in
the error.
It works if I remove the “-m <message> |” part of the OPTION in the
attached script.
Regards.
--
Daniel Dehennin
Récupérer ma clef GPG: gpg --recv-keys 0xCC1E9E5B7A6FE2DF
Fingerprint: 3E69 014E 5C23 50E8 9ED6 2AAD CC1E 9E5B 7A6F E2DF
#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Euclid;
if ($ARGV{'--message'}) {
print "Message: $ARGV{'--message'}\n";
}
else {
print "Nothing\n";
}
__END__
=head1 NAME
ge-debug.pl - Test Getopt::Euclid with debug
=head1 VERSION
This documentation refers to ge-debug.pl version 0.0.1
=head1 USAGE
perl -d ge-debug.pl --message Hello
=head1 OPTIONS
=over
=item -m [=] <message> | --message [=] <message>
Message to display.
=back
=head1 AUTHOR
Daniel Dehennin <daniel.dehennin@baby-gnu.org>
Message body not shown because it is not plain text.