summaryrefslogtreecommitdiffstats
path: root/crawl-ref/source/util/pcre/Detrail
diff options
context:
space:
mode:
authorSteven Noonan <steven@uplinklabs.net>2009-10-14 01:05:00 -0700
committerSteven Noonan <steven@uplinklabs.net>2009-10-14 21:33:59 -0700
commit9d51433ef6329e65938c5655586ea915493ba8ac (patch)
treea904d02f87629deaddb5cca83ff205eb836e53ba /crawl-ref/source/util/pcre/Detrail
parent59134ed3b2808e4e48ecc64ed8579b84431af057 (diff)
downloadcrawl-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/Detrail35
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