This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix deparsing of undefined hint hash values
[perl5.git] / dist / B-Deparse / Deparse.pm
index f203a53..24d17af 100644 (file)
@@ -1510,8 +1510,10 @@ sub declare_hinthash {
     my @decls;
     for my $key (keys %$to) {
        next if $ignored_hints{$key};
-       if (!defined $from->{$key} or $from->{$key} ne $to->{$key}) {
-           push @decls, qq(\$^H{'$key'} = q($to->{$key}););
+       if (!exists $from->{$key} or $from->{$key} ne $to->{$key}) {
+           push @decls, qq(\$^H{'$key'} = )
+             . (defined $to->{$key} ? qq(q($to->{$key})) : 'undef')
+             . qq(;);
        }
     }
     for my $key (keys %$from) {