perlbug -d,-v: fix uninit value warnings

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";
 	}