At least CGI v3.35 has this code, which is different from the code you show:

      if ($meth eq 'POST' || $meth eq 'PUT') {
      if ( $content_length > 0 ) {
        $self->read_from_client(\$query_string,$content_length,0);
      }
      elsif (not defined $ENV{CONTENT_LENGTH}) {
        $self->read_from_stdin(\$query_string);
        # should this be PUTDATA in case of PUT ?
        my($param) = $meth . 'DATA' ;
        $self->add_parameter($param) ;
        push (@{$self->{param}{$param}},$query_string);
        undef $query_string ;
      }
      # Some people want to have their cake and eat it too!
      # Uncomment this line to have the contents of the query string
      # APPENDED to the POST data.
      # $query_string .= (length($query_string) ? '&' : '') . $ENV{'QU
+ERY_STRING'} if defined $ENV{'QUERY_STRING'};
      last METHOD;
      }

[download]

If you're using an old version of CGI.pm it makes little sense to complain about bugs in the old version when a newer version which is different is available.

In reply to Re^7: Problem with CGI::Vars by Corion
in thread Problem with CGI::Vars by Chipper

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.