Subject: | setting script_name uses @_ incorrectly |
sub script_name {
my ($self,@p) = self_or_default(@_);
if (@p) {
$self->{'.script_name'} = shift;
This looks like it should be instead:
$self->{'.script_name'} = shift @p;
As it is, if you do $cgi->script_name("foo"), your script_name is now
set to the first argument, $cgi.