You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ch...@hyperreal.org on 1999/08/02 17:00:36 UTC
cvs commit: modperl/Apache Apache.pm
cholet 99/08/02 08:00:36
Modified: Apache Apache.pm
Log:
Make $r->content compatible with Mozilla's new content type string:
application/x-www-form-urlencoded; charset=ISO-8859-1
(see http://developer.netscape.com/viewsource/krock_v5.html)
Revision Changes Path
1.27 +1 -1 modperl/Apache/Apache.pm
Index: Apache.pm
===================================================================
RCS file: /export/home/cvs/modperl/Apache/Apache.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- Apache.pm 1999/06/05 03:16:08 1.26
+++ Apache.pm 1999/08/02 15:00:34 1.27
@@ -46,7 +46,7 @@
sub content {
my($r) = @_;
my $ct = $r->header_in("Content-type") || "";
- return unless $ct eq "application/x-www-form-urlencoded";
+ return unless $ct =~ m!^application/x-www-form-urlencoded!;
my $buff;
$r->read($buff, $r->header_in("Content-length"));
parse_args(wantarray, $buff);