X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/a5521fb1820cc67ab3d7c0fe728ef36b0b379a3f..4565100c67dd7b0344e9eb332296d5fa64e7611b:/PLP/Fields.pm

diff --git a/PLP/Fields.pm b/PLP/Fields.pm
index 2a4190c..7f07c4e 100644
--- a/PLP/Fields.pm
+++ b/PLP/Fields.pm
@@ -27,11 +27,7 @@ sub doit {
 		return \%post if $ENV{CONTENT_TYPE} !~
 			m!^(?:application/x-www-form-urlencoded|$)!;
 		
-		if ($ENV{MOD_PERL}) {
-			$post = Apache->request->content;
-		} else {
-			read *STDIN, $post, $ENV{CONTENT_LENGTH};
-		}
+		$post = $PLP::read->($ENV{CONTENT_LENGTH}) if $ENV{CONTENT_LENGTH};
 		
 		return \%post unless defined $post and length $post;