cleanfile (e5451c8f8330e03ad3cfa16048b4daf961af434f) cleanfile (cb77f0d623ff33a7899cb945f4f5a4825fbb2ea1)
1#!/usr/bin/perl -w
1#!/usr/bin/env perl
2#
3# Clean a text file -- or directory of text files -- of stealth whitespace.
4# WARNING: this can be a highly destructive operation. Use with caution.
5#
6
2#
3# Clean a text file -- or directory of text files -- of stealth whitespace.
4# WARNING: this can be a highly destructive operation. Use with caution.
5#
6
7use warnings;
7use bytes;
8use File::Basename;
9
10# Default options
11$max_width = 79;
12
13# Clean up space-tab sequences, either by removing spaces or
14# replacing them with tabs.

--- 162 unchanged lines hidden --- 		8use bytes;
9use File::Basename;
10
11# Default options
12$max_width = 79;
13
14# Clean up space-tab sequences, either by removing spaces or
15# replacing them with tabs.

--- 162 unchanged lines hidden ---