… | … | ||
---|---|---|---|
31 | } | 31 | } |
32 | } | 32 | } |
33 | } | 33 | } |
34 | } | 34 | } |
35 | 35 | ||
36 | open my $fh, ">", "const_iv.h~" | ||
37 | or die "const_iv.h~: $!"; | ||
38 | for (sort keys %const_iv) { | 36 | for (sort keys %const_iv) { |
39 | print $fh "const_iv($_)\n"; | 37 | print "const_iv($_)\n"; |
40 | } | 38 | } |
41 | close $fh; | ||
42 | rename "const_iv.h~", "const_iv.h"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |