-#!/usr/bin/perl -w
+#!/usr/bin/env perl
#
# Clean a patch file -- or directory of patch files -- of stealth whitespace.
# WARNING: this can be a highly destructive operation. Use with caution.
use bytes;
use File::Basename;
+use warnings;
# Default options
$max_width = 79;