Re: [PATCH] Serious bug on perl 5.8 may cause file/folder corruption

On Mon, Sep 15, 2003 at 04:40:59PM +0100, Paulo Matos wrote:
> 	Hi again!
> 
> 	After all, we have to patch neomail to resist buggy tell()! See 
> the attached file for details.
> 
> 	Neo, due to severity of this bug, please consider to create a 
> maintnence release.
> 
> 	With this patch there is no need for changing the open() calls as 
> suggested previously.

Yay! It works!

> @@ -24,5 +24,5 @@
>  use CGI qw(:standard);
>  use CGI::Carp qw(fatalsToBrowser);
> -use Fcntl qw(:DEFAULT :flock);
> +use Fcntl qw(:DEFAULT :flock :seek);
>  use FileHandle;
>  use Digest::MD5 'md5_hex';

For some reason, I had to edit in the " :seek" manually.  patch missed
it - tossed it in a reject file.

-- 
Scott Raun
[email protected]


-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf