Sigh. More changes for newer versions of perl.

diff --git a/docs/contrib/replyfilter b/docs/contrib/replyfilter
index a080710d53b9fc9a99328a32dc7a223bc30f79f2..2e987946c745ce226d4938f54b44420673768758 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;
                }