diff options
-rw-r--r-- | configdata.pm.in | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/configdata.pm.in b/configdata.pm.in index 3121226..71627b4 100644 --- a/configdata.pm.in +++ b/configdata.pm.in @@ -245,7 +245,13 @@ _____ foreach (sort keys %target) { next if $_ =~ m|^_| || $_ eq 'template'; my $quotify = sub { - map { (my $x = $_) =~ s|([\\\$\@"])|\\$1|g; "\"$x\""} @_; + map { + if (defined $_) { + (my $x = $_) =~ s|([\\\$\@"])|\\$1|g; "\"$x\"" + } else { + "undef"; + } + } @_; }; print ' ', $_, ' => '; if (ref($target{$_}) eq "ARRAY") { |