Changeset 2157 for libswish3/trunk/perl/docmaker.pl
- Timestamp:
- 09/19/08 06:08:56 (4 months ago)
- Files:
-
- libswish3/trunk/perl/docmaker.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
libswish3/trunk/perl/docmaker.pl
r2097 r2157 11 11 die $usage unless @ARGV; 12 12 13 my $docmaker = SWISH::Prog::Headers->new ;13 my $docmaker = SWISH::Prog::Headers->new( version => 3 ); 14 14 15 15 #$ENV{SWISH3} = 1; … … 43 43 44 44 # utf hack: convert every Nth word up a factor of $num_words > 1 45 if ( $utf_factor > 0 && ! $num_words % $utf_factor) {45 if ( $utf_factor > 0 && !($num_words % $utf_factor) ) { 46 46 no bytes; # so ord() and chr() work as expected 47 47 #warn ">> $num_words: $words[$num_words]\n";
