Show quoted text>>>>> On Fri, 05 Dec 2008 02:30:44 -0500, "AGRUNDMA via RT" <bug-Catalyst-Runtime@rt.cpan.org> said:
> Can you try the latest 5.8 svn (>=r8734)? I added a few more tests to
> make sure all temporary files are cleaned up.
I have checked out 5758 and reproduced the problem.
Show quoted text > If you still see the problem, can you add this patch and run just
> t/aggregate/live_engine_request_uploads.t?
Yes, I've added the patch. The remaining file has 5701 bytes, so it i
clear which one it is. Your patch seems to indicate that it gets
unlinked although then there are "numeric" warnings that may or may
not have to do with the failure to remove this beast. I paste the last
part of the diagnostice:
unlinking bless({
filename => "catalyst_130pix.gif",
headers => bless({
"content-disposition" => "form-data; name=\"file1\"; filename=\"catalyst_130pix.gif\"",
"content-type" => "image/gif",
}, "HTTP::Headers"),
size => 5701,
tempname => "/tmp/5D3yMZc0EG",
type => "image/gif",
}, "Catalyst::Request::Upload")
unlinking bless({
filename => "catalyst_130pix.gif",
headers => bless({
"content-disposition" => "form-data; name=\"testfile\"; filename=\"catalyst_130pix.gif\"",
"content-type" => "image/gif",
}, "HTTP::Headers"),
size => 5701,
tempname => "/tmp/gmUe8sAzIl",
type => "image/gif",
}, "Catalyst::Request::Upload")
Argument "9, 9" isn't numeric in subtraction (-) at /home/src/perl/catalyst/SVN/blib/lib/Catalyst/Engine.pm line 566.
Argument "9, 9" isn't numeric in numeric gt (>) at /home/src/perl/repoperls/installed-perls/perl/ptLkj8l/perl-5.10.0@35013/lib/site_perl/5.11.0/HTTP/Body.pm line 186.
Argument "9, 9" isn't numeric in numeric eq (==) at /home/src/perl/repoperls/installed-perls/perl/ptLkj8l/perl-5.10.0@35013/lib/site_perl/5.11.0/HTTP/Body/OctetStream.pm line 40.
Argument "9, 9" isn't numeric in subtraction (-) at /home/src/perl/catalyst/SVN/blib/lib/Catalyst/Engine.pm line 566.
Argument "9, 9" isn't numeric in subtraction (-) at /home/src/perl/catalyst/SVN/blib/lib/Catalyst/Engine.pm line 327.
unlinking bless({
filename => "live_engine_request_uploads.t",
headers => bless({
"content-disposition" => "form-data; name=\"testfile\"; filename=\"live_engine_request_uploads.t\"",
"content-type" => "application/x-troff",
}, "HTTP::Headers"),
size => 12203,
tempname => "/home/src/perl/catalyst/SVN/t/aggregate/MWCNnp93Co",
type => "application/x-troff",
}, "Catalyst::Request::Upload")
t/aggregate/live_engine_request_uploads....ok
All tests successful.
Files=1, Tests=101, 3 wallclock secs ( 0.07 usr 0.01 sys + 2.42 cusr 0.17 csys = 2.67 CPU)
Result: PASS
What gives?
--
andreas
