From: David Mitchell <davem@iabyn.com>
Date: Mon, 7 Jun 2010 22:28:26 +0000 (+0100)
Subject: perlbug -d,-v: fix uninit value warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ea8010ab3e95796683d1a69375c8df8c4bea3fb;p=p5sagit%2Fp5-mst-13.2.git

perlbug -d,-v: fix uninit value warnings
---

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 184c016..77ef3bd 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";
 	}