v3.11 release

[perl/plp/.git] / PLP / Fields.pm

diff --git a/PLP/Fields.pm b/PLP/Fields.pm
index 7b563cbf023d453abdf8adc0fb8b3396a6456cd0..14d30b65b83028156ec4d440dd08d7daaa618179 100644 (file)
--- a/PLP/Fields.pm
+++ b/PLP/Fields.pm
@@ -18,11 +18,7 @@ sub doit {
     tie %PLP::Script::get, 'PLP::Tie::Delay', 'PLP::Script::get', sub {
        my %get;
        my $get;
-       if ($ENV{MOD_PERL}) {
-           $get = Apache->request->args;
-       } else {
-           $get = $ENV{QUERY_STRING}
-       }
+       $get = $ENV{QUERY_STRING};
        if ($get ne ''){
            for (split /[&;]/, $get) {
                my @keyval = split /=/, $_, 2;