statiegeld: fix warning for undef $input on ^D
This commit is contained in:
parent
1105fbc3b2
commit
b416c7be3e
1 changed files with 1 additions and 0 deletions
|
@ -124,6 +124,7 @@ sub hook_input { # args via @_ for mutable alias
|
|||
my ($class, $cart, $input, $split_input) = @_;
|
||||
|
||||
$S or return;
|
||||
defined $input or return;
|
||||
|
||||
# Extra newline before new "Scan products for ..." line.
|
||||
print "\n" if defined $input and $input eq "" and $split_input;
|
||||
|
|
Loading…
Add table
Reference in a new issue