Sigh. More changes for newer versions of perl.

diff --git a/docs/contrib/replyfilter b/docs/contrib/replyfilter
index a080710..2e98794 100755 (executable)
--- a/docs/contrib/replyfilter
+++ b/docs/contrib/replyfilter
@@ -321,7 +321,7 @@ sub process_text (*$$;$)
        # Send our input to the filter program
        #
 
-       if (defined %filterreplace) {
+       if (%filterreplace) {
                foreach my $match (keys %filterreplace) {
                         $text =~ s/$match/$filterreplace{$match}/g;
                }