… | … | ||
---|---|---|---|
53 | 53 | ||
54 | open CFG, ">$file" | 54 | open CFG, ">$file" |
55 | or return; | 55 | or return; |
56 | 56 | ||
57 | { | 57 | { |
58 | require Data::Dumper; | ||
58 | local $Data::Dumper::Purity = 1; | 59 | local $Data::Dumper::Purity = 1; |
59 | $::CFG->{VERSION} = $::VERSION; | 60 | $::CFG->{VERSION} = $::VERSION; |
60 | print CFG Data::Dumper->Dump ([$::CFG], [qw/CFG/]); | 61 | print CFG Data::Dumper->Dump ([$::CFG], [qw/CFG/]); |
61 | } | 62 | } |
62 | 63 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |