summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--utils/perlbug.PL5
1 files changed, 5 insertions, 0 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 184c016b42..77ef3bd75e 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -716,6 +716,10 @@ EOF
sub Dump {
local(*OUT) = @_;
+ # these won't have been set if run with -d
+ $category ||= 'core';
+ $severity ||= 'low';
+
print OUT <<EFF;
---
Flags:
@@ -784,6 +788,7 @@ EOF
my $value;
foreach (sort keys %::Config) {
$value = $::Config{$_};
+ $value = '' unless defined $value;
$value =~ s/'/\\'/g;
print OUT "$_='$value'\n";
}