Diogenes Patch

diff -pruN -x phi -x tlg -x Perseus_Data /tmp/compile/diogenes-3.1.6/Diogenes/UnicodeInput.pm ./Diogenes/UnicodeInput.pm
--- /tmp/compile/diogenes-3.1.6/Diogenes/UnicodeInput.pm        2007-09-16 23:02:13.000000000 +0100
+++ ./Diogenes/UnicodeInput.pm  2013-11-27 20:16:40.857704026 +0000
@@ -106,7 +106,7 @@ sub unicode_greek_to_beta {
             }
         }
         # Put the diacrits in the correct order
-        for my $d qw{ ) ( / \ = | + } {
+        for my $d (qw{ ) ( / \ = | + }) {
             my $r = quotemeta $d;
             $out .= $d if $temp =~ m/$r/;
         }
diff -pruN -x phi -x tlg -x Perseus_Data /tmp/compile/diogenes-3.1.6/Diogenes.cgi ./Diogenes.cgi
--- /tmp/compile/diogenes-3.1.6/Diogenes.cgi    2007-10-20 08:04:37.000000000 +0100
+++ ./Diogenes.cgi      2013-11-27 20:27:28.748916745 +0000
@@ -634,7 +634,7 @@ my $get_args = sub
         $args{pattern} = $st{query};
     }

-    for my $arg qw(context min_matches reject_pattern)
+    for my $arg (qw(context min_matches reject_pattern))
     {
         $args{$arg} = $st{$arg} if $st{$arg};
     }