implies condition sometimes results in uninitialized value, sometimes it just works

[gversluis]

The output of the code below on Ubuntu 16.04 (everything from Ubuntu repo) gives:

:!./test.pl -t 127.0.0.1 --ip

ip: 1
Use of uninitialized value in print at ./test.pl line 18.
Status:

But about 50% of the times it gives the expected output:

:!./test.pl -t 127.0.0.1 --ip

ip: 1
Status: open

Code:

#!/usr/bin/perl -w -T

use strict;
use Getopt::Long::Descriptive;


my ($opt, $usage) = describe_options(
  '',
  [ 'ip',       "Get WAN IP address" ],
  [ 'status=s',   "Change service status", { callbacks => {
    'Accepted status values are: OPEN, CLOSE' => sub { $_[0] =~ /^(open|close)$/  }
  } } ],
  [ 'target|t=s',   "Target IPv4 when a port is opened", { implies => { status => 'open' }, callbacks => {
    'Valid ipv4' => sub { $_[0] =~ /^(([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.){3}([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])$/ }
  } } ],
);

print "\nip: ", $opt->ip(), "\nStatus: ", $opt->status(), "\n";

exit;

[gversluis]

Issue is still there in v0.109 (current trunk)