- $ar = eval {require Apache2::Request} ? Apache2::Request->new($r) : $r;
- }
- else { $ar = Apache::Request->instance($r); }
+ $ar = eval {require Apache2::Request} ? Apache2::Request->new($r,%{$request_options}) : $r;
+ } else {
+ if (keys %$request_options) {
+ $ar = Apache::Request->new($r,%{$request_options});
+ } else {
+ $ar = Apache::Request->instance($r);
+ }
+ }