Bug #13674 for Cache-Cache: Bug in Cache::FileBackend 1.27 on Win32

Wed Jul 13 10:21:18 2005 Guest - Ticket created

Subject:

Bug in Cache::FileBackend 1.27 on Win32

Cache::FileBackend 1.27 does not pass a drive letter to File::Temp::tempfile(). This is not a problem on a Unix based system, but on a Win32 system causes Cache::FileCache to die: "Error in tempfile() using \temp\FileCache\Default\9\2\4\XXXXXXXXXX: Parent directory (\temp\FileCache\Default\9\2\4\) is not a directory at C:/Perl/site/lib/Cache/FileBackend.pm line 563" The attached patch corrects this behaviour, prepending the directory path with a drive letter if one is present or an empty string if not. I have verified this fix on Windows 2003 with ActivePerl 5.8.7 and Windows 2000 with ActivePerl 5.8.4.

--- FileBackend_orig.pm Wed Jul 13 14:53:41 2005 +++ FileBackend.pm Wed Jul 13 14:55:50 2005 @@ -559,7 +559,8 @@ my ( $volume, $directory, $filename ) = File::Spec->splitpath( $p_path ); - my ( $temp_fh, $temp_filename ) = tempfile( DIR => $directory ); + $volume ||= ''; + my ( $temp_fh, $temp_filename ) = tempfile( DIR => $volume . $directory ); binmode( $temp_fh );

Wed Jul 13 18:29:46 2005 dewitt [...] unto.net - Status changed from 'new' to 'resolved'

Wed Jul 13 18:29:46 2005 dewitt [...] unto.net - Correspondence added

I have a fixed that I'm checking in for the 1.05 release. It is slightly different than the one you suggested, but only insofar as I wanted to be consistent with some other similar code. Feel free to check out the CVS version if it is urgent. And I'd love to hear confirmation if the fix worked. Thanks@

Fri Dec 16 02:21:38 2005 The RT System itself - Status changed from 'resolved' to 'open'

Fri Dec 16 02:21:38 2005 Guest - Correspondence added

[DCLINTON - Wed Jul 13 18:29:46 2005]: Show quoted text

> I have a fixed that I'm checking in for the 1.05 release. It is > slightly different than the one you suggested, but only insofar as I > wanted to be consistent with some other similar code. > > Feel free to check out the CVS version if it is urgent. And I'd love > to > hear confirmation if the fix worked. Thanks@ >

So is that 1.05 release ever going to be made available out of CVS?

Wed Dec 21 16:57:06 2005 Guest - Correspondence added

From:

johanl ÄT darserman.com

Show quoted text

> So is that 1.05 release ever going to be made available out of CVS?

Yes, please, please, please, make a release with this fix! Please? /J

Thu Apr 27 12:49:26 2006 Guest - Correspondence added

From:

aaronw6 [...] gmail.com

On Wed Jul 13 10:21:18 2005, guest wrote: Show quoted text

> Cache::FileBackend 1.27 does not pass a drive letter to > File::Temp::tempfile(). This is not a problem on a Unix based > system, but on a Win32 system causes Cache::FileCache to die: > > "Error in tempfile() using \temp\FileCache\Default\9\2\4\XXXXXXXXXX: > Parent directory (\temp\FileCache\Default\9\2\4\) is not a > directory at C:/Perl/site/lib/Cache/FileBackend.pm line 563" > > The attached patch corrects this behaviour, prepending the directory > path with a drive letter if one is present or an empty string if > not. I have verified this fix on Windows 2003 with ActivePerl

5.8.7 Show quoted text

> and Windows 2000 with ActivePerl 5.8.4.

The above attached fix worked great, When is the fix going to be put in the PM, or at least state that there is a problem for win32 systems.

Fri May 26 12:22:44 2006 dewitt [...] unto.net - Status changed from 'open' to 'resolved'