refresh patches

[deb_pkgs/scowl.git] / src / add-possessive

diff --git a/src/add-possessive b/src/add-possessive
index 89e90c7fca4936fe87243b3fd09ed955a711b127..9909b35e53e3b3bfd7699c100c2e50a0aeed2210 100755 (executable)
--- a/src/add-possessive
+++ b/src/add-possessive
@@ -1,25 +1,7 @@
-#!/bin/sh
+#!/usr/bin/perl
 
-
-doit() 
-{
-  sed "s/^\(.*\)'s\$/\1/"                   \
-    | comm -12 - working/possessive.lst     \
-    | sed "s/^\(.*\)/\1 \1's/"              \
-    | tr ' ' '\n'
+while (<STDIN>) {
+  print;
+  chomp;
+  print "$_\'s\n";
 }
-
-if [ "$1" ]
-then
-  cat $1 | doit > working/$$.postmp
-  cat working/$$.postmp >> $1
-  rm working/$$.postmp
-else
-  cat > $$.postmp
-  cat $$.postmp | doit 
-  cat $$.postmp
-  rm $$.postmp
-fi
-
-
-