[svn-upgrade] Tagging scowl (7.1)

[deb_pkgs/scowl.git] / 7.1 / speller / add-no-suggest

diff --git a/7.1/speller/add-no-suggest b/7.1/speller/add-no-suggest
new file mode 100755 (executable)
index 0000000..f3bea69
--- /dev/null
+++ b/7.1/speller/add-no-suggest
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+while (<>) {
+  chop;
+  my ($w, $a) = split /\//;
+  $a .= '!';
+  print "$w";
+  print "/$a" if length($a) > 0;
+  print "\n";
+}