Adding parameters to a request

[Rob Bloodgood <ro...@empire2.com>]

In my AuthenHandler, I run the following snippet:

	# validation successful
	$apr->subprocess_env(REMOTE_PASSWORD => $pass);
      my $args = $apr->args || '';
	$apr->args( $args . ( length $args ? '&' : '' ) . "pid=$pid" )
           unless $args =~ /pid=\d+/;
	return OK;

The intent is to add the parameter 'pid=99' or whatever to the request if it
is not already present.

It feels clunky and forced to me... is there a better way to do this?  As
indicated by the variable, I'm using Apache::Request, for the sole purpose
of having easier access to the parameters.  Except that it turns out
Apache::Request's param() method does NOT support *setting* parameters, only
*getting* them. <sigh>

TIA!

L8r,
Rob