stas 2004/08/25 12:22:11
Modified: t/response/TestAPI lookup_uri.pm
Log:
add some undefined protection
Revision Changes Path
1.4 +1 -0 modperl-2.0/t/response/TestAPI/lookup_uri.pm
Index: lookup_uri.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/lookup_uri.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- lookup_uri.pm 14 Aug 2004 05:10:12 -0000 1.3
+++ lookup_uri.pm 25 Aug 2004 19:22:11 -0000 1.4
@@ -27,6 +27,7 @@
else {
my $new_args = "$uri?main=1;$args";
my $subr;
+ $args{filter} ||= '';
if ($args{filter} eq 'first') {
# run all request filters
$subr = $r->lookup_uri($new_args,
