3 # wordwrap.pl --- does word wrap
6 if (/^#/) { # don't word wrap comments
10 next if (/^$/); # skip blank lines
13 while (defined($word = shift @words)) {
14 $word =~ s#\$\(srcdir\)/\.\./version.h#\$\(top_srcdir\)/version.h#;
15 $word =~ s#\$\(srcdir\)/.\.\/\.\./version.h#\$\(top_srcdir\)/version.h#;
16 $word =~ s#\$\(srcdir\)/.\.\/et/com_err.h#\$\(top_srcdir\)/lib/et/com_err.h#;
20 $len = length($word) + 1;