This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlbug -d,-v: fix uninit value warnings
authorDavid Mitchell <davem@iabyn.com>
Mon, 7 Jun 2010 22:28:26 +0000 (23:28 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 7 Jun 2010 22:28:26 +0000 (23:28 +0100)
utils/perlbug.PL

index 184c016..77ef3bd 100644 (file)
@@ -716,6 +716,10 @@ EOF
 sub Dump {
     local(*OUT) = @_;
 
 sub Dump {
     local(*OUT) = @_;
 
+    # these won't have been set if run with -d
+    $category ||= 'core';
+    $severity ||= 'low';
+
     print OUT <<EFF;
 ---
 Flags:
     print OUT <<EFF;
 ---
 Flags:
@@ -784,6 +788,7 @@ EOF
        my $value;
        foreach (sort keys %::Config) {
            $value = $::Config{$_};
        my $value;
        foreach (sort keys %::Config) {
            $value = $::Config{$_};
+           $value = '' unless defined $value;
            $value =~ s/'/\\'/g;
            print OUT "$_='$value'\n";
        }
            $value =~ s/'/\\'/g;
            print OUT "$_='$value'\n";
        }