stas 2003/03/09 17:25:26
Modified: t/response/TestCompat apache_uri.pm
Log:
don't use 2.0 api in compat tests
Revision Changes Path
1.2 +2 -2 modperl-2.0/t/response/TestCompat/apache_uri.pm
Index: apache_uri.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestCompat/apache_uri.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- apache_uri.pm 9 Mar 2003 08:57:55 -0000 1.1
+++ apache_uri.pm 10 Mar 2003 01:25:26 -0000 1.2
@@ -45,9 +45,9 @@
delete $INC{"Apache/compat.pm"};
require Apache::compat;
- # test the segfault in apr < 0.9.2 (fixed on mod_perl side)
+ # test the segfault in apr < 0.9.2 (fixed on mod_perl side)
# passing only the /path
- my $parsed = APR::URI->parse($r->pool, $r->uri);
+ my $parsed = $r->parsed_uri;
# set hostname, but not the scheme
$parsed->hostname($r->get_server_name);
$parsed->port($r->get_server_port);
