diff options
author | Steven Noonan <steven@uplinklabs.net> | 2009-10-14 01:05:00 -0700 |
---|---|---|
committer | Steven Noonan <steven@uplinklabs.net> | 2009-10-14 21:33:59 -0700 |
commit | 9d51433ef6329e65938c5655586ea915493ba8ac (patch) | |
tree | a904d02f87629deaddb5cca83ff205eb836e53ba /crawl-ref/source/util/pcre/Detrail | |
parent | 59134ed3b2808e4e48ecc64ed8579b84431af057 (diff) | |
download | crawl-ref-9d51433ef6329e65938c5655586ea915493ba8ac.tar.gz crawl-ref-9d51433ef6329e65938c5655586ea915493ba8ac.zip |
contribs: moved to contribs dir, added as submodules
Signed-off-by: Steven Noonan <steven@uplinklabs.net>
Diffstat (limited to 'crawl-ref/source/util/pcre/Detrail')
-rw-r--r-- | crawl-ref/source/util/pcre/Detrail | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/crawl-ref/source/util/pcre/Detrail b/crawl-ref/source/util/pcre/Detrail deleted file mode 100644 index 1c5c7e9cae..0000000000 --- a/crawl-ref/source/util/pcre/Detrail +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl - -# This is a script for removing trailing whitespace from lines in files that -# are listed on the command line. - -# This subroutine does the work for one file. - -sub detrail { -my($file) = $_[0]; -my($changed) = 0; -open(IN, "$file") || die "Can't open $file for input"; -@lines = <IN>; -close(IN); -foreach (@lines) - { - if (/\s+\n$/) - { - s/\s+\n$/\n/; - $changed = 1; - } - } -if ($changed) - { - open(OUT, ">$file") || die "Can't open $file for output"; - print OUT @lines; - close(OUT); - } -} - -# This is the main program - -$, = ""; # Output field separator -for ($i = 0; $i < @ARGV; $i++) { &detrail($ARGV[$i]); } - -# End |