Merge branch 'u2_10_12_branch' of git://git.code.sf.net/p/undernet-ircu/ircu2

[ircu2.10.12-pk.git] / tools / untabify

diff --git a/tools/untabify b/tools/untabify
new file mode 100644 (file)
index 0000000..048603e
--- /dev/null
+++ b/tools/untabify
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+#
+# untabify - convert tabs to spaces
+#
+# $Id: untabify,v 1.2 2002-03-07 22:52:57 ghostwolf Exp $
+
+use Text::Tabs;
+$tabstop = 8;
+while (<>) { print expand($_) }
+