[Catalyst-commits] r13652 - in trunk/HTTP-Body: . lib/HTTP lib/HTTP/Body t

[purge at dev.catalyst.perl.org]

Author: purge
Date: 2010-10-08 15:51:49 +0100 (Fri, 08 Oct 2010)
New Revision: 13652

Modified:
   trunk/HTTP-Body/Changes
   trunk/HTTP-Body/dist.ini
   trunk/HTTP-Body/lib/HTTP/Body.pm
   trunk/HTTP-Body/lib/HTTP/Body/MultiPart.pm
   trunk/HTTP-Body/t/08multipart-suffix.t
Log:
patch for 1.10

Modified: trunk/HTTP-Body/Changes
===================================================================
--- trunk/HTTP-Body/Changes	2010-10-08 14:29:43 UTC (rev 13651)
+++ trunk/HTTP-Body/Changes	2010-10-08 14:51:49 UTC (rev 13652)
@@ -1,6 +1,12 @@
 This file documents the revision history for Perl extension HTTP::Body.
 
-1.08
+1.10    Fri 8 Oct 2010 15:50:55 UTC
+        - Patch for test failure ( thanks KENTNL/MITHALDU! )
+
+1.09    Thu 19 Aug 2010 19:08:55 UTC
+        - remove blib for PAUSE indexing.
+
+1.08    Thu 19 Aug 2010 18:08:42 UTC
         - Temp files now preserve the suffix of the uploaded file. This makes
           it possible to feed the file directly into a mime-type-determining
           module that may rely on this suffix as part of its heuristic. (Dave

Modified: trunk/HTTP-Body/dist.ini
===================================================================
--- trunk/HTTP-Body/dist.ini	2010-10-08 14:29:43 UTC (rev 13651)
+++ trunk/HTTP-Body/dist.ini	2010-10-08 14:51:49 UTC (rev 13652)
@@ -1,5 +1,5 @@
 name    = HTTP-Body
-version = 1.08
+version = 1.10
 author  = Christian Hansen, C<chansen at cpan.org>
 author  = Sebastian Riedel, C<sri at cpan.org>
 author  = Andy Grundman, C<andy at hybridized.org>
@@ -18,4 +18,10 @@
 
 [Prereqs / TestRequires]
 Test::More      = 0.86
-Test::Deep      = 0
\ No newline at end of file
+Test::Deep      = 0
+
+[MetaResources]
+repository.web  = http://dev.catalystframework.org/repos/Catalyst/trunk/HTTP-Body/
+repository.url  = https://dev.catalystframework.org/repos/Catalyst/trunk/HTTP-Body/
+repository.type = svn
+x_mailing_list  = http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst-dev

Modified: trunk/HTTP-Body/lib/HTTP/Body/MultiPart.pm
===================================================================
--- trunk/HTTP-Body/lib/HTTP/Body/MultiPart.pm	2010-10-08 14:29:43 UTC (rev 13651)
+++ trunk/HTTP-Body/lib/HTTP/Body/MultiPart.pm	2010-10-08 14:51:49 UTC (rev 13652)
@@ -6,6 +6,7 @@
 
 use IO::File;
 use File::Temp 0.14;
+use File::Spec;
 
 =head1 NAME
 
@@ -270,7 +271,8 @@
             $part->{filename} = $filename;
 
             if ( $filename ne "" ) {
-                my $suffix = $filename =~ /[^.]+(\.[^\\\/]+)$/ ? $1 : q{};
+                my $basename = (File::Spec->splitpath($filename))[2];
+                my $suffix = $basename =~ /[^.]+(\.[^\\\/]+)$/ ? $1 : q{};
 
                 my $fh = File::Temp->new( UNLINK => 0, DIR => $self->tmpdir, SUFFIX => $suffix );
 

Modified: trunk/HTTP-Body/lib/HTTP/Body.pm
===================================================================
--- trunk/HTTP-Body/lib/HTTP/Body.pm	2010-10-08 14:29:43 UTC (rev 13651)
+++ trunk/HTTP-Body/lib/HTTP/Body.pm	2010-10-08 14:51:49 UTC (rev 13652)
@@ -390,6 +390,20 @@
 
 =back
 
+=head1 SUPPORT
+
+Since its original creation this module has been taken over by the Catalyst
+development team. If you want to contribute patches, these will be your
+primary contact points:
+
+IRC:
+
+    Join #catalyst-dev on irc.perl.org.
+
+Mailing Lists:
+
+    http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst-dev
+
 =head1 AUTHOR
 
 Christian Hansen, C<chansen at cpan.org>
@@ -398,6 +412,14 @@
 
 Andy Grundman, C<andy at hybridized.org>
 
+=head1 CONTRIBUTORS
+
+Simon Elliott C<cpan at papercreatures.com>
+
+Kent Fredric <kentnl at cpan.org>
+
+Christian Walde
+
 =head1 LICENSE
 
 This library is free software. You can redistribute it and/or modify 

Modified: trunk/HTTP-Body/t/08multipart-suffix.t
===================================================================
--- trunk/HTTP-Body/t/08multipart-suffix.t	2010-10-08 14:29:43 UTC (rev 13651)
+++ trunk/HTTP-Body/t/08multipart-suffix.t	2010-10-08 14:51:49 UTC (rev 13652)
@@ -54,8 +54,8 @@
         'tempname preserves .txt suffix when dir name has .'
     );
 
-    unlike(
-        $uploads->{upload2}{tempname}, qr/\\/,
+    like(
+        $uploads->{upload2}{tempname}, qr/[\\\/]\w+.txt$/,
         'tempname only gets extension from filename, not from a directory name'
     );
 }