diff --git a/contrib/adc/who-pushed b/contrib/adc/who-pushed
index f1eec21..413b417 100755
--- a/contrib/adc/who-pushed
+++ b/contrib/adc/who-pushed
@@ -20,7 +20,7 @@ logdir=$(dirname $GL_LOG)      # uncodumented env var ;-)
 
 ls $logdir | tac | while read lf
 do
-    < $logdir/$lf grep receive-pack | egrep "\s$repo\s" | cut -f1,2,3,5- | tac
+    < $logdir/$lf perl -ne "print if /receive-pack.*\s$repo\s/" | cut -f1,2,3,5- | tac
 done | while read ts who IP perm old new repo ref rule
 do
     save_old=$old