fix: when no command-line is passed, a warn could be emitted in some cases

This depends on the version of Perl libs, but in any case we shouldn't
pass an undef var to GetOptionsFromString, ensure this never happens
This commit is contained in:
Stéphane Lesimple 2023-09-20 10:10:06 +00:00 committed by Stéphane Lesimple
parent d70e52a09b
commit 5c7389e85f

View file

@ -346,7 +346,7 @@ else {
my $remainingOptions;
($result, $remainingOptions) = GetOptionsFromString(
$beforeOptions,
$beforeOptions // "",
"port|p=i" => \my $optPort,
"verbose+" => \my $verbose,
"tty|t" => \my $tty,