X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fadd-possessive;h=9909b35e53e3b3bfd7699c100c2e50a0aeed2210;hb=4510f7fed66204384fe8c39fc875e24fd874229b;hp=89e90c7fca4936fe87243b3fd09ed955a711b127;hpb=fcd1b19126a5a5f7312c0d789c832742623fa5bd;p=deb_pkgs%2Fscowl.git

diff --git a/src/add-possessive b/src/add-possessive
index 89e90c7..9909b35 100755
--- 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
-
-
-