X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/a5521fb1820cc67ab3d7c0fe728ef36b0b379a3f..2a96ba1295fd6613aefec51be9efa0fa443fb29d:/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;