Markus Wichitill wrote:
The backslashes are URL-escaped

Same issue in lookup_misc.

Index: t/filter/TestFilter/out_bbs_filebucket.pm
===================================================================
RCS file: /home/cvspublic/modperl-2.0/t/filter/TestFilter/out_bbs_filebucket.pm,v
retrieving revision 1.1
diff -u -r1.1 out_bbs_filebucket.pm
--- t/filter/TestFilter/out_bbs_filebucket.pm 13 Aug 2004 01:51:14 -0000 1.1
+++ t/filter/TestFilter/out_bbs_filebucket.pm 14 Aug 2004 15:38:31 -0000
@@ -8,6 +8,7 @@
use Apache::RequestRec ();
use Apache::RequestIO ();
use Apache::Filter;
+use Apache::URI ();


 use APR::Brigade ();
 use APR::Bucket ();
@@ -58,7 +59,7 @@

     $r->content_type('text/plain');
     my $file = $r->args;
-
+    Apache::URI::unescape_url($file);
     $r->sendfile($file);

     return Apache::OK;
Index: t/response/TestAPI/lookup_misc.pm
===================================================================
RCS file: /home/cvspublic/modperl-2.0/t/response/TestAPI/lookup_misc.pm,v
retrieving revision 1.1
diff -u -r1.1 lookup_misc.pm
--- t/response/TestAPI/lookup_misc.pm   14 Aug 2004 05:10:12 -0000      1.1
+++ t/response/TestAPI/lookup_misc.pm   14 Aug 2004 15:42:02 -0000
@@ -11,6 +11,7 @@
 use Apache::RequestIO ();
 use Apache::Filter ();
 use Apache::SubRequest ();
+use Apache::URI ();

 use Apache::TestTrace;

@@ -25,6 +26,7 @@

     if ($args{subreq} eq 'lookup_file') {
         debug "lookup_file($args{file})";
+        Apache::URI::unescape_url($args{file});
         my $subr = $r->lookup_file($args{file});
         $subr->run;
     }


--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]



Reply via email to