[Catalyst-commits] r12532 - in trunk/Catalyst-Engine-HTTP-Prefork: . lib/Catalyst/Engine/HTTP/Prefork

[hobbs at dev.catalyst.perl.org]

Author: hobbs
Date: 2010-01-06 00:59:17 +0000 (Wed, 06 Jan 2010)
New Revision: 12532

Modified:
   trunk/Catalyst-Engine-HTTP-Prefork/Makefile.PL
   trunk/Catalyst-Engine-HTTP-Prefork/lib/Catalyst/Engine/HTTP/Prefork/Handler.pm
Log:
Replace deprecated Cookie::XS with CGI::Cookie::XS.

Current CPAN Cookie::XS is just an empty subclass of CGI::Cookie::XS anyway,
so this is a no-op change.


Modified: trunk/Catalyst-Engine-HTTP-Prefork/Makefile.PL
===================================================================
--- trunk/Catalyst-Engine-HTTP-Prefork/Makefile.PL	2010-01-05 18:06:00 UTC (rev 12531)
+++ trunk/Catalyst-Engine-HTTP-Prefork/Makefile.PL	2010-01-06 00:59:17 UTC (rev 12532)
@@ -4,7 +4,7 @@
 all_from 'lib/Catalyst/Engine/HTTP/Prefork.pm';
 
 requires 'Catalyst::Runtime'        => '5.7012';
-requires 'Cookie::XS'               => '0.08';
+requires 'CGI::Cookie::XS'          => '0.17';
 requires 'HTTP::Body'               => '1.01';
 requires 'Net::Server'              => '0.97';
 requires 'HTTP::HeaderParser::XS'   => '0.20';

Modified: trunk/Catalyst-Engine-HTTP-Prefork/lib/Catalyst/Engine/HTTP/Prefork/Handler.pm
===================================================================
--- trunk/Catalyst-Engine-HTTP-Prefork/lib/Catalyst/Engine/HTTP/Prefork/Handler.pm	2010-01-05 18:06:00 UTC (rev 12531)
+++ trunk/Catalyst-Engine-HTTP-Prefork/lib/Catalyst/Engine/HTTP/Prefork/Handler.pm	2010-01-06 00:59:17 UTC (rev 12532)
@@ -3,7 +3,7 @@
 use strict;
 use base 'Catalyst::Engine::CGI';
 
-use Cookie::XS;
+use CGI::Cookie::XS;
 use Data::Dump qw(dump);
 use HTTP::Body;
 use HTTP::Date qw(time2str);
@@ -44,7 +44,7 @@
     if ( my $header = $c->request->header('Cookie') ) {
         # This method is around 8x faster than letting
         # CGI::Simple::Cookie do the parsing in pure perl
-        my $cookies = Cookie::XS->parse( $header );
+        my $cookies = CGI::Cookie::XS->parse( $header );
         my $cookie_objs = { 
             map {
                 $_ => bless {
@@ -227,4 +227,4 @@
     $self->SUPER::write( $c, $buffer );
 }
 
-1;
\ No newline at end of file
+1;