diff options
| author | David Mitchell <davem@iabyn.com> | 2010-06-07 23:28:26 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-06-07 23:28:26 +0100 |
| commit | 4ea8010ab3e95796683d1a69375c8df8c4bea3fb (patch) | |
| tree | 1858ac8b68df4203f0f334a70ab7a98865639db3 /utils/perlbug.PL | |
| parent | 5f3e44b689cab8bd7cec81aa6fc21c2ec5b3489f (diff) | |
| download | perl-4ea8010ab3e95796683d1a69375c8df8c4bea3fb.tar.gz | |
perlbug -d,-v: fix uninit value warnings
Diffstat (limited to 'utils/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 5 |
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"; } |