Parent Directory
| 
Revision Log
Do width normalization
| 1 | wakaba | 1.1 | use strict; |
| 2 | wakaba | 1.18 | use utf8; |
| 3 | wakaba | 1.1 | |
| 4 | wakaba | 1.7 | my $data_dir_name = q[data/]; |
| 5 | wakaba | 1.8 | my $data2_dir_name = q[data2/]; |
| 6 | my $data2_suffix = q[.dat]; | ||
| 7 | my $lock_suffix = q[.lock]; | ||
| 8 | wakaba | 1.13 | |
| 9 | ## SEE ALSO: |Makefile|. | ||
| 10 | wakaba | 1.8 | my $fallback_file_name = $data2_dir_name . 'fallback' . $data2_suffix; |
| 11 | wakaba | 1.12 | |
| 12 | ## SEE ALSO: |Makefile|. | ||
| 13 | wakaba | 1.11 | my $patch_file_name = $data2_dir_name . 'modified.txt'; |
| 14 | wakaba | 1.8 | |
| 15 | our $UseCVS //= 1; | ||
| 16 | wakaba | 1.1 | |
| 17 | sub normalize ($) { | ||
| 18 | my $s = shift; | ||
| 19 | $s =~ s/\s+/ /g; | ||
| 20 | $s =~ s/^ //; | ||
| 21 | $s =~ s/ $//g; |