| Subject: | memory leak when run without all required args |
doesn't happen with 0.086.
The following script shows the problem:
#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long::Descriptive;
my ( $opt, $usage ) = describe_options(
'%c %o',
[ 'mode|m=s',
"1234567890123456789012345678901234567890123456789012",
{ default => 'all' }
],
[ 'startdate|s=s',
"from which date (e.g. 2006-06-26)",
{ required => 1 }
],
[ 'enddate|e=s', "to which date (e.g. 2006-07-26)", { required => 1 } ],
[ 'help', "print usage message and exit" ],
);
print( $usage->text ), exit if $opt->help;
If you remove one char from
"1234567890123456789012345678901234567890123456789012" the memory leak
doesn't happen.