perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Markus Wichitill <ma...@gmx.de>
Subject Re: Win32 fails filter\out_bbs_filebucket
Date Sat, 14 Aug 2004 15:34:57 GMT
Stas Bekman wrote:
> Index: t/filter/TestFilter/out_bbs_filebucket.pm
> ===================================================================
> RCS file: /home/cvs/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   13 Aug 2004 17:24:19 -0000
> @@ -58,6 +58,9 @@
> 
>      $r->content_type('text/plain');
>      my $file = $r->args;
> +    warn "file: $file\n";
> +
> +    $file =~ s|\\|/|g; # sendfile wants a unix style separator?
> 
>      $r->sendfile($file);

The backslashes are URL-escaped, either of the following works:

$file =~ s|%5C|\\|g;
$file =~ s|%5C|/|g;

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message