10 lines
298 B
Perl
10 lines
298 B
Perl
--- lib/IO/Prompt.pm
|
|
+++ lib/IO/Prompt.pm
|
|
@@ -88,6 +88,7 @@
|
|
@data = map { $flags_alias{$_} || $_ } @data;
|
|
for (my $i = 0 ; $i < @data ; $i++) {
|
|
local *_ = \($data[$i]);
|
|
+ next unless defined $_;
|
|
if (ref eq 'HASH') {
|
|
splice @data, $i + 1, 0, %$_;
|
|
}
|