On 23 June 2014 07:16, Mark Hedges <mark.hed...@ticketmaster.com> wrote:
> s...@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
> 2014-06-22 23:09:00 Sun $ diff -u
> /ntfhome/local/src/perl/mod_perl-2.0.8/t/response/TestDirective/perlloadmodule2.pm.orig
>
> /ntfhome/local/src/perl/mod_perl-2.0.8/t/response/TestDirective/perlloadmodule2.pm
> ---
> /ntfhome/local/src/perl/mod_perl-2.0.8/t/response/TestDirective/perlloadmodule2.pm.orig
> 2014-06-22 23:07:40.833878000 -0700
> +++
> /ntfhome/local/src/perl/mod_perl-2.0.8/t/response/TestDirective/perlloadmodule2.pm
> 2014-06-22 23:08:16.291719000 -0700
> @@ -82,7 +82,8 @@
>
> my $s = $r->server;
>
> - if ($r->args eq 'srv') {
> + my $args = $r->args;
> + if (defined $args && $args eq 'srv') {
> my $srv_cfg = $self->get_config($s);
> $r->print("srv: @{ $srv_cfg->{MyMergeTest}||[] }");
> }
Thanks for the patch. However, this is already fixed in trunk in the
SVN repository.
