diff --git a/Debconf/ConfModule.pm b/Debconf/ConfModule.pm index 8017202..20c084e 100644 --- a/Debconf/ConfModule.pm +++ b/Debconf/ConfModule.pm @@ -228,7 +228,9 @@ sub process_command { my $this=shift; debug developer => "<-- $_"; - return 1 unless defined && ! /^\s*#/; # Skip blank lines, comments. + return 1 unless defined; # Skip empty input. + return 1 if /^\s*$/ # Skip blank lines. + return 1 if /^\s*#/ # Skip comments. chomp; my ($command, @params); if (defined $this->client_capb and grep { $_ eq 'escape' } @{$this->client_capb}) {