From dev-return-2719-apmail-perl-dev-archive=perl.apache.org@perl.apache.org Tue May 14 10:23:50 2002 Return-Path: Delivered-To: apmail-perl-dev-archive@perl.apache.org Received: (qmail 29257 invoked by uid 500); 14 May 2002 10:23:50 -0000 Mailing-List: contact dev-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Delivered-To: mailing list dev@perl.apache.org Received: (qmail 29244 invoked from network); 14 May 2002 10:23:49 -0000 Date: Tue, 14 May 2002 11:24:04 +0100 (BST) From: Matt Sergeant To: Arthur Bergman cc: "lstein@cshl.org" , "dev@perl.apache.org" Subject: Re: Problem with tied STDIN, CGI.pm mod_perl 1.26 and perl 5.6.1 In-Reply-To: <3ACA9638-6720-11D6-96B3-003065D64CBE@contiller.se> Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N On Tue, 14 May 2002, Arthur Bergman wrote: > The following patch corrects the problem without having any bad side > effects as far as I know. IIRC there are earlier perl 5's where file handles as a string rather than a globref don't work. But I'm talking like 5.001 or something, so I wouldn't worry about it too much. > --- CGI.pm~ Wed Apr 10 21:36:01 2002 > +++ CGI.pm Tue May 14 11:34:22 2002 > @@ -450,7 +450,7 @@ > } > > if ($meth eq 'POST') { > - > $self->read_from_client(\*STDIN,\$query_string,$content_length,0) > + > $self->read_from_client('STDIN',\$query_string,$content_length,0) > if $content_length > 0; > # Some people want to have their cake and eat it too! > # Uncomment this line to have the contents of the query string -- <:->Get a smart net --------------------------------------------------------------------- To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org For additional commands, e-mail: dev-help@perl.apache.org