diff options
Diffstat (limited to 'dist/Data-Dumper/Dumper.pm')
| -rw-r--r-- | dist/Data-Dumper/Dumper.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm index 8018bae523..b4c6f7b037 100644 --- a/dist/Data-Dumper/Dumper.pm +++ b/dist/Data-Dumper/Dumper.pm @@ -504,7 +504,12 @@ sub _dump { $sname = $name; } else { - $sname = $s->_dump($name eq 'main::' ? '' : $name, ""); + $sname = $s->_dump( + $name eq 'main::' || $] < 5.007 && $name eq "main::\0" + ? '' + : $name, + "", + ); $sname = '{' . $sname . '}'; } if ($s->{purity}) { |