--- /usr/local/share/perl/5.10.0/CGI.pm.bak     2009-11-05 15:26:07.000000000 -0700
+++ /usr/local/share/perl/5.10.0/CGI.pm 2009-11-05 15:23:05.000000000 -0700
@@ -649,7 +649,7 @@ sub init {

      # If method is GET or HEAD, fetch the query from
      # the environment.
-      if ($is_xforms || $meth=~/^(GET|HEAD)$/) {
+      if ($is_xforms || $meth=~/^(GET|HEAD|DELETE)$/) {
         if ($MOD_PERL) {
           $query_string = $self->r->args;
         } else {