POST oddness

[John R. <Joh...@as...>]

Hi all,

I recently upgraded web-lib.pl on a project that I am
working on and suddenly my posting of data goes arseways.

Offending function is ReadParse.  Can anybody tell me what
this is line is doing ?
  if ($in) { $in .= "&".$ENV{'QUERY_STRING'}; }


## new POST handling
# ReadParse([&assoc])
# Fills the given associative array with CGI parameters, or
uses the global
# %in if none is given. Also sets the global variables $in
and @in
sub ReadParse
{
  local $a = $_[0] ? $_[0] : \%in;
  local $i;
  if ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
  }
  if ($ENV{'QUERY_STRING'}) {
    if ($in) { $in .= "&".$ENV{'QUERY_STRING'}; }
    else { $in = $ENV{'QUERY_STRING'}; }
  }

## old POST handling
# ReadParse([&assoc])
# Fills the given associative array with CGI parameters, or
uses the global
# %in if none is given. Also sets the global variables $in
and @in
sub ReadParse
{
  local $a = $_[0] ? $_[0] : \%in;
  local $i;
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
         read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
         }

 else {
         $in = $ENV{'QUERY_STRING'};
         }