perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Steve Hay <steve....@uk.radan.com>
Subject Re: Win32 fails filter\out_bbs_filebucket
Date Fri, 13 Aug 2004 17:12:13 GMT
Stas Bekman wrote:

>Steve Hay wrote:
>  
>
>>error_log contains:
>>
>>[Fri Aug 13 17:48:59 2004] [error] [client 127.0.0.1] 
>>Apache::RequestIO::sendfile: (720002) The system cannot find the file 
>>specified.   at 
>>    
>>
>
>Steve, could you change the client t\filter\out_bbs_filebucket.t to pass 
>a filename so that win32 will like it?
>
>        my $file = catfile $dir, "data_${size}k.txt";
>
>I don't know what sendfile wants on win32, does it want the file to be / 
>separated?
>
Ah ha!  That's it -- it works OK with this:

Index: t/filter/out_bbs_filebucket.t
===================================================================
RCS file: /home/cvspublic/modperl-2.0/t/filter/out_bbs_filebucket.t,v
retrieving revision 1.1
diff -u -u -r1.1 out_bbs_filebucket.t
--- t/filter/out_bbs_filebucket.t       13 Aug 2004 01:51:15 -0000      1.1
+++ t/filter/out_bbs_filebucket.t       13 Aug 2004 17:11:26 -0000
@@ -33,6 +33,7 @@
     my $data = "ABCD" x ($size * 256);

     my $file = catfile $dir, "data_${size}k.txt";
+    $file =~ s/\\/\//g;
     open my $fh, ">$file" or die "can't open $file: $!";
     # need binmode on Win32 so as not to strip \r, which
     # are included when sending with sendfile().




------------------------------------------------
Radan Computational Ltd.

The information contained in this message and any files transmitted with it are confidential
and intended for the addressee(s) only.  If you have received this message in error or there
are any problems, please notify the sender immediately.  The unauthorized use, disclosure,
copying or alteration of this message is strictly forbidden.  Note that any views or opinions
presented in this email are solely those of the author and do not necessarily represent those
of Radan Computational Ltd.  The recipient(s) of this message should check it and any attached
files for viruses: Radan Computational will accept no liability for any damage caused by any
virus transmitted by this email.


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


Mime
View raw message