| … | … | ||
|---|---|---|---|
| 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 |