r50642 - in /trunk/libhttp-body-perl: ./ debian/ inc/ lib/HTTP/ lib/HTTP/Body/ t/ t/data/multipart/ t/data/octetstream/ t/data/urlencoded/ t/data/xforms/ t/lib/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Jan 10 15:56:40 UTC 2010
Author: jawnsy-guest
Date: Sun Jan 10 15:56:31 2010
New Revision: 50642
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50642
Log:
* New upstream release
* Add myself to Uploaders and Copyright
* Update copyright information to DEP5 format
* Rewrite control description
Added:
trunk/libhttp-body-perl/inc/
- copied from r50641, branches/upstream/libhttp-body-perl/current/inc/
trunk/libhttp-body-perl/t/data/multipart/001-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/001-headers.pml
trunk/libhttp-body-perl/t/data/multipart/001-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/001-results.pml
trunk/libhttp-body-perl/t/data/multipart/002-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/002-headers.pml
trunk/libhttp-body-perl/t/data/multipart/002-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/002-results.pml
trunk/libhttp-body-perl/t/data/multipart/003-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/003-headers.pml
trunk/libhttp-body-perl/t/data/multipart/003-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/003-results.pml
trunk/libhttp-body-perl/t/data/multipart/004-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/004-headers.pml
trunk/libhttp-body-perl/t/data/multipart/004-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/004-results.pml
trunk/libhttp-body-perl/t/data/multipart/005-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/005-headers.pml
trunk/libhttp-body-perl/t/data/multipart/005-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/005-results.pml
trunk/libhttp-body-perl/t/data/multipart/006-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/006-headers.pml
trunk/libhttp-body-perl/t/data/multipart/006-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/006-results.pml
trunk/libhttp-body-perl/t/data/multipart/007-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/007-headers.pml
trunk/libhttp-body-perl/t/data/multipart/007-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/007-results.pml
trunk/libhttp-body-perl/t/data/multipart/008-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/008-headers.pml
trunk/libhttp-body-perl/t/data/multipart/008-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/008-results.pml
trunk/libhttp-body-perl/t/data/multipart/009-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/009-headers.pml
trunk/libhttp-body-perl/t/data/multipart/009-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/009-results.pml
trunk/libhttp-body-perl/t/data/multipart/010-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/010-headers.pml
trunk/libhttp-body-perl/t/data/multipart/010-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/010-results.pml
trunk/libhttp-body-perl/t/data/multipart/011-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/011-headers.pml
trunk/libhttp-body-perl/t/data/multipart/011-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/011-results.pml
trunk/libhttp-body-perl/t/data/multipart/012-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/012-headers.pml
trunk/libhttp-body-perl/t/data/multipart/012-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/012-results.pml
trunk/libhttp-body-perl/t/data/multipart/013-content.dat
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/013-content.dat
trunk/libhttp-body-perl/t/data/multipart/013-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/013-headers.pml
trunk/libhttp-body-perl/t/data/multipart/013-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/multipart/013-results.pml
trunk/libhttp-body-perl/t/data/octetstream/001-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/octetstream/001-headers.pml
trunk/libhttp-body-perl/t/data/octetstream/002-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/octetstream/002-headers.pml
trunk/libhttp-body-perl/t/data/octetstream/003-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/octetstream/003-headers.pml
trunk/libhttp-body-perl/t/data/urlencoded/001-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/001-headers.pml
trunk/libhttp-body-perl/t/data/urlencoded/001-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/001-results.pml
trunk/libhttp-body-perl/t/data/urlencoded/002-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/002-headers.pml
trunk/libhttp-body-perl/t/data/urlencoded/002-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/002-results.pml
trunk/libhttp-body-perl/t/data/urlencoded/003-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/003-headers.pml
trunk/libhttp-body-perl/t/data/urlencoded/003-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/003-results.pml
trunk/libhttp-body-perl/t/data/urlencoded/004-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/004-headers.pml
trunk/libhttp-body-perl/t/data/urlencoded/004-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/004-results.pml
trunk/libhttp-body-perl/t/data/urlencoded/005-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/005-headers.pml
trunk/libhttp-body-perl/t/data/urlencoded/005-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/005-results.pml
trunk/libhttp-body-perl/t/data/urlencoded/006-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/006-headers.pml
trunk/libhttp-body-perl/t/data/urlencoded/006-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/urlencoded/006-results.pml
trunk/libhttp-body-perl/t/data/xforms/001-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/xforms/001-headers.pml
trunk/libhttp-body-perl/t/data/xforms/001-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/xforms/001-results.pml
trunk/libhttp-body-perl/t/data/xforms/002-headers.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/xforms/002-headers.pml
trunk/libhttp-body-perl/t/data/xforms/002-results.pml
- copied unchanged from r50641, branches/upstream/libhttp-body-perl/current/t/data/xforms/002-results.pml
trunk/libhttp-body-perl/t/lib/
- copied from r50641, branches/upstream/libhttp-body-perl/current/t/lib/
Removed:
trunk/libhttp-body-perl/t/data/multipart/001-headers.yml
trunk/libhttp-body-perl/t/data/multipart/001-results.yml
trunk/libhttp-body-perl/t/data/multipart/002-headers.yml
trunk/libhttp-body-perl/t/data/multipart/002-results.yml
trunk/libhttp-body-perl/t/data/multipart/003-headers.yml
trunk/libhttp-body-perl/t/data/multipart/003-results.yml
trunk/libhttp-body-perl/t/data/multipart/004-headers.yml
trunk/libhttp-body-perl/t/data/multipart/004-results.yml
trunk/libhttp-body-perl/t/data/multipart/005-headers.yml
trunk/libhttp-body-perl/t/data/multipart/005-results.yml
trunk/libhttp-body-perl/t/data/multipart/006-headers.yml
trunk/libhttp-body-perl/t/data/multipart/006-results.yml
trunk/libhttp-body-perl/t/data/multipart/007-headers.yml
trunk/libhttp-body-perl/t/data/multipart/007-results.yml
trunk/libhttp-body-perl/t/data/multipart/008-headers.yml
trunk/libhttp-body-perl/t/data/multipart/008-results.yml
trunk/libhttp-body-perl/t/data/multipart/009-headers.yml
trunk/libhttp-body-perl/t/data/multipart/009-results.yml
trunk/libhttp-body-perl/t/data/multipart/010-headers.yml
trunk/libhttp-body-perl/t/data/multipart/010-results.yml
trunk/libhttp-body-perl/t/data/multipart/011-headers.yml
trunk/libhttp-body-perl/t/data/multipart/011-results.yml
trunk/libhttp-body-perl/t/data/multipart/012-headers.yml
trunk/libhttp-body-perl/t/data/multipart/012-results.yml
trunk/libhttp-body-perl/t/data/octetstream/001-headers.yml
trunk/libhttp-body-perl/t/data/octetstream/002-headers.yml
trunk/libhttp-body-perl/t/data/octetstream/003-headers.yml
trunk/libhttp-body-perl/t/data/urlencoded/001-headers.yml
trunk/libhttp-body-perl/t/data/urlencoded/001-results.yml
trunk/libhttp-body-perl/t/data/urlencoded/002-headers.yml
trunk/libhttp-body-perl/t/data/urlencoded/002-results.yml
trunk/libhttp-body-perl/t/data/urlencoded/003-headers.yml
trunk/libhttp-body-perl/t/data/urlencoded/003-results.yml
trunk/libhttp-body-perl/t/data/urlencoded/004-headers.yml
trunk/libhttp-body-perl/t/data/urlencoded/004-results.yml
trunk/libhttp-body-perl/t/data/urlencoded/005-headers.yml
trunk/libhttp-body-perl/t/data/urlencoded/005-results.yml
trunk/libhttp-body-perl/t/data/urlencoded/006-headers.yml
trunk/libhttp-body-perl/t/data/urlencoded/006-results.yml
trunk/libhttp-body-perl/t/data/xforms/001-headers.yml
trunk/libhttp-body-perl/t/data/xforms/001-results.yml
trunk/libhttp-body-perl/t/data/xforms/002-headers.yml
trunk/libhttp-body-perl/t/data/xforms/002-results.yml
Modified:
trunk/libhttp-body-perl/Changes
trunk/libhttp-body-perl/MANIFEST
trunk/libhttp-body-perl/META.yml
trunk/libhttp-body-perl/Makefile.PL
trunk/libhttp-body-perl/debian/changelog
trunk/libhttp-body-perl/debian/control
trunk/libhttp-body-perl/debian/copyright
trunk/libhttp-body-perl/lib/HTTP/Body.pm
trunk/libhttp-body-perl/lib/HTTP/Body/MultiPart.pm
trunk/libhttp-body-perl/t/04multipart.t
trunk/libhttp-body-perl/t/05urlencoded.t
trunk/libhttp-body-perl/t/06octetstream.t
trunk/libhttp-body-perl/t/07xforms.t
Modified: trunk/libhttp-body-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/Changes?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/Changes (original)
+++ trunk/libhttp-body-perl/Changes Sun Jan 10 15:56:31 2010
@@ -1,4 +1,11 @@
This file documents the revision history for Perl extension HTTP::Body.
+
+1.06 2010-01-09 19:21:00
+ - Added $body->cleanup(1) flag to enable auto-deletion of temporary files
+ during DESTROY. (Vany Serezhkin)
+ - Fixed parsing of multipart bodies with boundaries that contain commas.
+ (Tomas Doran, http://rt.cpan.org/Public/Bug/Display.html?id=41407)
+ - Dropped YAML, we now use Perl as a serialization format in our tests. We call this PAML ;)
1.05 2008-12-01 17:15:00
- Removed useless eval + require in new().
Modified: trunk/libhttp-body-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/MANIFEST?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/MANIFEST (original)
+++ trunk/libhttp-body-perl/MANIFEST Sun Jan 10 15:56:31 2010
@@ -1,4 +1,12 @@
Changes
+inc/Module/Install.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
lib/HTTP/Body.pm
lib/HTTP/Body/MultiPart.pm
lib/HTTP/Body/OctetStream.pm
@@ -19,71 +27,75 @@
t/06octetstream.t
t/07xforms.t
t/data/multipart/001-content.dat
-t/data/multipart/001-headers.yml
-t/data/multipart/001-results.yml
+t/data/multipart/001-headers.pml
+t/data/multipart/001-results.pml
t/data/multipart/002-content.dat
-t/data/multipart/002-headers.yml
-t/data/multipart/002-results.yml
+t/data/multipart/002-headers.pml
+t/data/multipart/002-results.pml
t/data/multipart/003-content.dat
-t/data/multipart/003-headers.yml
-t/data/multipart/003-results.yml
+t/data/multipart/003-headers.pml
+t/data/multipart/003-results.pml
t/data/multipart/004-content.dat
-t/data/multipart/004-headers.yml
-t/data/multipart/004-results.yml
+t/data/multipart/004-headers.pml
+t/data/multipart/004-results.pml
t/data/multipart/005-content.dat
-t/data/multipart/005-headers.yml
-t/data/multipart/005-results.yml
+t/data/multipart/005-headers.pml
+t/data/multipart/005-results.pml
t/data/multipart/006-content.dat
-t/data/multipart/006-headers.yml
-t/data/multipart/006-results.yml
+t/data/multipart/006-headers.pml
+t/data/multipart/006-results.pml
t/data/multipart/007-content.dat
-t/data/multipart/007-headers.yml
-t/data/multipart/007-results.yml
+t/data/multipart/007-headers.pml
+t/data/multipart/007-results.pml
t/data/multipart/008-content.dat
-t/data/multipart/008-headers.yml
-t/data/multipart/008-results.yml
+t/data/multipart/008-headers.pml
+t/data/multipart/008-results.pml
t/data/multipart/009-content.dat
-t/data/multipart/009-headers.yml
-t/data/multipart/009-results.yml
+t/data/multipart/009-headers.pml
+t/data/multipart/009-results.pml
t/data/multipart/010-content.dat
-t/data/multipart/010-headers.yml
-t/data/multipart/010-results.yml
+t/data/multipart/010-headers.pml
+t/data/multipart/010-results.pml
t/data/multipart/011-content.dat
-t/data/multipart/011-headers.yml
-t/data/multipart/011-results.yml
+t/data/multipart/011-headers.pml
+t/data/multipart/011-results.pml
t/data/multipart/012-content.dat
-t/data/multipart/012-headers.yml
-t/data/multipart/012-results.yml
+t/data/multipart/012-headers.pml
+t/data/multipart/012-results.pml
+t/data/multipart/013-content.dat
+t/data/multipart/013-headers.pml
+t/data/multipart/013-results.pml
t/data/octetstream/001-content.dat
-t/data/octetstream/001-headers.yml
+t/data/octetstream/001-headers.pml
t/data/octetstream/001-results.dat
t/data/octetstream/002-content.dat
-t/data/octetstream/002-headers.yml
+t/data/octetstream/002-headers.pml
t/data/octetstream/002-results.dat
t/data/octetstream/003-content.dat
-t/data/octetstream/003-headers.yml
+t/data/octetstream/003-headers.pml
t/data/octetstream/003-results.dat
t/data/urlencoded/001-content.dat
-t/data/urlencoded/001-headers.yml
-t/data/urlencoded/001-results.yml
+t/data/urlencoded/001-headers.pml
+t/data/urlencoded/001-results.pml
t/data/urlencoded/002-content.dat
-t/data/urlencoded/002-headers.yml
-t/data/urlencoded/002-results.yml
+t/data/urlencoded/002-headers.pml
+t/data/urlencoded/002-results.pml
t/data/urlencoded/003-content.dat
-t/data/urlencoded/003-headers.yml
-t/data/urlencoded/003-results.yml
+t/data/urlencoded/003-headers.pml
+t/data/urlencoded/003-results.pml
t/data/urlencoded/004-content.dat
-t/data/urlencoded/004-headers.yml
-t/data/urlencoded/004-results.yml
+t/data/urlencoded/004-headers.pml
+t/data/urlencoded/004-results.pml
t/data/urlencoded/005-content.dat
-t/data/urlencoded/005-headers.yml
-t/data/urlencoded/005-results.yml
+t/data/urlencoded/005-headers.pml
+t/data/urlencoded/005-results.pml
t/data/urlencoded/006-content.dat
-t/data/urlencoded/006-headers.yml
-t/data/urlencoded/006-results.yml
+t/data/urlencoded/006-headers.pml
+t/data/urlencoded/006-results.pml
t/data/xforms/001-content.dat
-t/data/xforms/001-headers.yml
-t/data/xforms/001-results.yml
+t/data/xforms/001-headers.pml
+t/data/xforms/001-results.pml
t/data/xforms/002-content.dat
-t/data/xforms/002-headers.yml
-t/data/xforms/002-results.yml
+t/data/xforms/002-headers.pml
+t/data/xforms/002-results.pml
+t/lib/PAML.pm
Modified: trunk/libhttp-body-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/META.yml?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/META.yml (original)
+++ trunk/libhttp-body-perl/META.yml Sun Jan 10 15:56:31 2010
@@ -1,15 +1,29 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: HTTP-Body
-version: 1.05
-version_from: lib/HTTP/Body.pm
-installdirs: site
+---
+abstract: 'HTTP Body Parser'
+author:
+ - 'Christian Hansen, C<chansen at cpan.org>'
+build_requires:
+ ExtUtils::MakeMaker: 6.42
+ Test::Deep: 0
+ Test::More: 0.86
+configure_requires:
+ ExtUtils::MakeMaker: 6.42
+distribution_type: module
+generated_by: 'Module::Install version 0.91'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: HTTP-Body
+no_index:
+ directory:
+ - inc
+ - t
requires:
- Carp: 0
- File::Temp: 0.14
- HTTP::Headers: 0
- IO::File: 0
- YAML: 0.39
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+ Carp: 0
+ File::Temp: 0.14
+ HTTP::Headers: 0
+ IO::File: 0
+resources:
+ license: http://dev.perl.org/licenses/
+version: 1.06
Modified: trunk/libhttp-body-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/Makefile.PL?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/Makefile.PL (original)
+++ trunk/libhttp-body-perl/Makefile.PL Sun Jan 10 15:56:31 2010
@@ -1,15 +1,16 @@
#!perl
-use ExtUtils::MakeMaker;
+use inc::Module::Install;
-WriteMakefile(
- NAME => 'HTTP::Body',
- VERSION_FROM => 'lib/HTTP/Body.pm',
- PREREQ_PM => {
- Carp => 0,
- File::Temp => '0.14',
- HTTP::Headers => 0,
- IO::File => 0,
- YAML => '0.39'
- }
-);
+name 'HTTP-Body';
+all_from 'lib/HTTP/Body.pm';
+
+requires 'Carp';
+requires 'File::Temp' => '0.14';
+requires 'HTTP::Headers';
+requires 'IO::File';
+
+test_requires 'Test::More' => '0.86';
+test_requires 'Test::Deep';
+
+WriteAll;
Modified: trunk/libhttp-body-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/debian/changelog?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/debian/changelog (original)
+++ trunk/libhttp-body-perl/debian/changelog Sun Jan 10 15:56:31 2010
@@ -1,3 +1,12 @@
+libhttp-body-perl (1.06-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Add myself to Uploaders and Copyright
+ * Update copyright information to DEP5 format
+ * Rewrite control description
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 10 Jan 2010 10:50:49 -0500
+
libhttp-body-perl (1.05-2) unstable; urgency=low
[ Nathan Handler ]
Modified: trunk/libhttp-body-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/debian/control?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/debian/control (original)
+++ trunk/libhttp-body-perl/debian/control Sun Jan 10 15:56:31 2010
@@ -2,11 +2,11 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.50)
-Build-Depends-Indep: perl, libyaml-perl, libpath-class-perl,
+Build-Depends-Indep: perl, libyaml-perl, libpath-class-perl,
libtest-pod-perl, libtest-pod-coverage-perl, libwww-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Krzysztof Krzyżaniak (eloy) <eloy at debian.org>,
- gregor herrmann <gregoa at debian.org>,
+ gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
Rene Mayorga <rmayorga at debian.org.sv>
Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/HTTP-Body/
@@ -17,6 +17,7 @@
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}, libyaml-perl,
libpath-class-perl, libwww-perl
-Description: HTTP Body object
- HTTP::Body is perl class for handling HTTP request data in OOP way. It comes
- with method for manipulating stored data as well.
+Description: module for manipulating HTTP POST data as an object
+ HTTP::Body is a Perl module for manipulating HTTP POST request data in an
+ object-oriented way, providing support for application/x-www-form-urlencoded
+ application/octet-stream, and multipart/form-data.
Modified: trunk/libhttp-body-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/debian/copyright?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/debian/copyright (original)
+++ trunk/libhttp-body-perl/debian/copyright Sun Jan 10 15:56:31 2010
@@ -4,17 +4,23 @@
Name: HTTP-Body
Files: *
-Copyright: 2005-2008, Christian Hansen
- 2005-2008, Sebastian Riedel
- 2005-2008, Andy Grundman
+Copyright: 2005-2008, Christian Hansen <chansen at cpan.org>
+ 2005-2008, Sebastian Riedel <sri at cpan.org>
+ 2005-2008, Andy Grundman <andy at hybridized.org>
+License: Artistic or GPL-1+
+
+Files: inc/Module/*
+Copyright: 2002-2009, Adam Kennedy <adamk at cpan.org>
+ 2002-2009, Audrey Tang <autrijus at autrijus.org>
+ 2002-2009, Brian Ingerson <ingy at cpan.org>
License: Artistic or GPL-1+
Files: debian/*
-Copyright: 2005, 2006, 2007, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
- 2008, 2010, gregor herrmann <gregoa at debian.org>
- 2008, Krzysztof Krzyżaniak (eloy) <eloy at debian.org>
+Copyright: 2010, Jonathan Yu <jawnsy at cpan.org>
+ 2008-2010, gregor herrmann <gregoa at debian.org>
+ 2009, Nathan Handler <nhandler at ubuntu.com>
+ 2005-2008, Krzysztof Krzyżaniak (eloy) <eloy at debian.org>
2008, Rene Mayorga <rmayorga at debian.org.sv>
- 2009, Nathan Handler <nhandler at ubuntu.com>
License: Artistic or GPL-1+
License: Artistic
Modified: trunk/libhttp-body-perl/lib/HTTP/Body.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/lib/HTTP/Body.pm?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/lib/HTTP/Body.pm (original)
+++ trunk/libhttp-body-perl/lib/HTTP/Body.pm Sun Jan 10 15:56:31 2010
@@ -4,7 +4,7 @@
use Carp qw[ ];
-our $VERSION = '1.05';
+our $VERSION = '1.06';
our $TYPES = {
'application/octet-stream' => 'HTTP::Body::OctetStream',
@@ -68,7 +68,8 @@
When parsing multipart bodies, temporary files are created to store any
uploaded files. You must delete these temporary files yourself after
-processing them.
+processing them, or set $body->cleanup(1) to automatically delete them
+at DESTROY-time.
=head1 METHODS
@@ -98,6 +99,7 @@
my $body = $TYPES->{ $type || 'application/octet-stream' };
my $self = {
+ cleanup => 0,
buffer => '',
chunk_buffer => '',
body => undef,
@@ -114,6 +116,20 @@
bless( $self, $body );
return $self->init;
+}
+
+sub DESTROY {
+ my $self = shift;
+
+ if ( $self->{cleanup} ) {
+ my @temps = ();
+ for my $upload ( values %{ $self->{upload} } ) {
+ push @temps, map { $_->{tempname} || () }
+ ( ref $upload eq 'ARRAY' ? @{$upload} : $upload );
+ }
+
+ unlink map { $_ } grep { -e $_ } @temps;
+ }
}
=item add
@@ -220,6 +236,18 @@
return shift->{chunked};
}
+=item cleanup
+
+Set to 1 to enable automatic deletion of temporary files at DESTROY-time.
+
+=cut
+
+sub cleanup {
+ my $self = shift;
+ $self->{cleanup} = shift if @_;
+ return $self->{cleanup};
+}
+
=item content_length
Returns the content-length for the body data if known.
@@ -366,7 +394,7 @@
=head1 AUTHOR
-Christian Hansen, C<ch at ngmedia.com>
+Christian Hansen, C<chansen at cpan.org>
Sebastian Riedel, C<sri at cpan.org>
Modified: trunk/libhttp-body-perl/lib/HTTP/Body/MultiPart.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/lib/HTTP/Body/MultiPart.pm?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/lib/HTTP/Body/MultiPart.pm (original)
+++ trunk/libhttp-body-perl/lib/HTTP/Body/MultiPart.pm Sun Jan 10 15:56:31 2010
@@ -30,7 +30,7 @@
sub init {
my $self = shift;
- unless ( $self->content_type =~ /boundary=\"?([^\";,]+)\"?/ ) {
+ unless ( $self->content_type =~ /boundary=\"?([^\";]+)\"?/ ) {
my $content_type = $self->content_type;
Carp::croak("Invalid boundary in content_type: '$content_type'");
}
Modified: trunk/libhttp-body-perl/t/04multipart.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/t/04multipart.t?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/t/04multipart.t (original)
+++ trunk/libhttp-body-perl/t/04multipart.t Sun Jan 10 15:56:31 2010
@@ -3,22 +3,26 @@
use strict;
use warnings;
-use Test::More tests => 98;
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 140;
+use Test::Deep;
use Cwd;
use HTTP::Body;
use File::Spec::Functions;
use IO::File;
-use YAML;
+use PAML;
use File::Temp qw/ tempdir /;
my $path = catdir( getcwd(), 't', 'data', 'multipart' );
-for ( my $i = 1; $i <= 12; $i++ ) {
+for ( my $i = 1; $i <= 13; $i++ ) {
my $test = sprintf( "%.3d", $i );
- my $headers = YAML::LoadFile( catfile( $path, "$test-headers.yml" ) );
- my $results = YAML::LoadFile( catfile( $path, "$test-results.yml" ) );
+ my $headers = PAML::LoadFile( catfile( $path, "$test-headers.pml" ) );
+ my $results = PAML::LoadFile( catfile( $path, "$test-results.pml" ) );
my $content = IO::File->new( catfile( $path, "$test-content.dat" ) );
my $body = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
my $tempdir = tempdir( 'XXXXXXX', CLEANUP => 1, DIR => File::Spec->tmpdir() );
@@ -32,6 +36,11 @@
$body->add($buffer);
}
+ # Tests >= 10 use auto-cleanup
+ if ( $i >= 10 ) {
+ $body->cleanup(1);
+ }
+
# Save tempnames for later deletion
my @temps;
@@ -41,16 +50,36 @@
for ( ( ref($value) eq 'ARRAY' ) ? @{$value} : $value ) {
like($_->{tempname}, qr{$regex_tempdir}, "has tmpdir $tempdir");
- push @temps, delete $_->{tempname};
+ push @temps, $_->{tempname};
+ }
+
+ # Tell Test::Deep to ignore tempname values
+ if ( ref $value eq 'ARRAY' ) {
+ for ( @{ $results->{upload}->{$field} } ) {
+ $_->{tempname} = ignore();
+ }
+ }
+ else {
+ $results->{upload}->{$field}->{tempname} = ignore();
}
}
- is_deeply( $body->body, $results->{body}, "$test MultiPart body" );
- is_deeply( $body->param, $results->{param}, "$test MultiPart param" );
- is_deeply( $body->upload, $results->{upload}, "$test MultiPart upload" );
+ cmp_deeply( $body->body, $results->{body}, "$test MultiPart body" );
+ cmp_deeply( $body->param, $results->{param}, "$test MultiPart param" );
+ cmp_deeply( $body->upload, $results->{upload}, "$test MultiPart upload" )
+ if $results->{upload};
cmp_ok( $body->state, 'eq', 'done', "$test MultiPart state" );
cmp_ok( $body->length, '==', $body->content_length, "$test MultiPart length" );
- # Clean up temp files created
- unlink map { $_ } grep { -e $_ } @temps;
-}
+ if ( $i < 10 ) {
+ # Clean up temp files created
+ unlink map { $_ } grep { -e $_ } @temps;
+ }
+
+ undef $body;
+
+ # Ensure temp files were deleted
+ for my $temp ( @temps ) {
+ ok( !-e $temp, "Temp file $temp was deleted" );
+ }
+}
Modified: trunk/libhttp-body-perl/t/05urlencoded.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/t/05urlencoded.t?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/t/05urlencoded.t (original)
+++ trunk/libhttp-body-perl/t/05urlencoded.t Sun Jan 10 15:56:31 2010
@@ -2,6 +2,9 @@
use strict;
use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 31;
@@ -10,15 +13,15 @@
use HTTP::Body;
use File::Spec::Functions;
use IO::File;
-use YAML;
+use PAML;
my $path = catdir( getcwd(), 't', 'data', 'urlencoded' );
for ( my $i = 1; $i <= 6; $i++ ) {
my $test = sprintf( "%.3d", $i );
- my $headers = YAML::LoadFile( catfile( $path, "$test-headers.yml" ) );
- my $results = YAML::LoadFile( catfile( $path, "$test-results.yml" ) );
+ my $headers = PAML::LoadFile( catfile( $path, "$test-headers.pml" ) );
+ my $results = PAML::LoadFile( catfile( $path, "$test-results.pml" ) );
my $content = IO::File->new( catfile( $path, "$test-content.dat" ) );
my $body = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
Modified: trunk/libhttp-body-perl/t/06octetstream.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/t/06octetstream.t?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/t/06octetstream.t (original)
+++ trunk/libhttp-body-perl/t/06octetstream.t Sun Jan 10 15:56:31 2010
@@ -1,5 +1,8 @@
use strict;
use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 12;
@@ -7,14 +10,14 @@
use HTTP::Body;
use File::Spec::Functions;
use IO::File;
-use YAML;
+use PAML;
my $path = catdir( getcwd(), 't', 'data', 'octetstream' );
for ( my $i = 1 ; $i <= 3 ; $i++ ) {
my $test = sprintf( "%.3d", $i );
- my $headers = YAML::LoadFile( catfile( $path, "$test-headers.yml" ) );
+ my $headers = PAML::LoadFile( catfile( $path, "$test-headers.pml" ) );
my $results =
slurp_fh( IO::File->new( catfile( $path, "$test-results.dat" ) ) );
my $content = IO::File->new( catfile( $path, "$test-content.dat" ) );
Modified: trunk/libhttp-body-perl/t/07xforms.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhttp-body-perl/t/07xforms.t?rev=50642&op=diff
==============================================================================
--- trunk/libhttp-body-perl/t/07xforms.t (original)
+++ trunk/libhttp-body-perl/t/07xforms.t Sun Jan 10 15:56:31 2010
@@ -2,6 +2,9 @@
use strict;
use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
use Test::More tests => 12;
@@ -9,15 +12,15 @@
use HTTP::Body;
use File::Spec::Functions;
use IO::File;
-use YAML;
+use PAML;
my $path = catdir( getcwd(), 't', 'data', 'xforms' );
for ( my $i = 1; $i <= 2; $i++ ) {
my $test = sprintf( "%.3d", $i );
- my $headers = YAML::LoadFile( catfile( $path, "$test-headers.yml" ) );
- my $results = YAML::LoadFile( catfile( $path, "$test-results.yml" ) );
+ my $headers = PAML::LoadFile( catfile( $path, "$test-headers.pml" ) );
+ my $results = PAML::LoadFile( catfile( $path, "$test-results.pml" ) );
my $content = IO::File->new( catfile( $path, "$test-content.dat" ) );
my $body = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
More information about the Pkg-perl-cvs-commits
mailing list