- tie %PLP::Script::get, 'PLP::Tie::Delay', 'PLP::Script::get', sub {
- my %get;
- my $get = $ENV{QUERY_STRING};
- if ($get ne ''){
- for (split /[&;]/, $get) {
- my @keyval = split /=/, $_, 2;
- PLP::Functions::DecodeURI(@keyval);
- $get{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
- push @{ $get{'@' . $keyval[0]} }, $keyval[1];
- }
+
+ # %get
+
+ my $get = \%PLP::Script::get;
+ if (length $ENV{QUERY_STRING}){
+ for (split /[&;]/, $ENV{QUERY_STRING}) {
+ my @keyval = split /=/, $_, 2;
+ PLP::Functions::DecodeURI(@keyval);
+ $get->{$keyval[0]} = $keyval[1] unless $keyval[0] =~ /^\@/;
+ push @{ $get->{ '@' . $keyval[0] } }, $keyval[1];