httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From j...@apache.org
Subject svn commit: r178491 - /httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm
Date Wed, 25 May 2005 17:19:41 GMT
Author: joes
Date: Wed May 25 10:19:41 2005
New Revision: 178491

URL: http://svn.apache.org/viewcvs?rev=178491&view=rev
Log:
Fix $jar->cookies("foo").
 

Modified:
    httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm

Modified: httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm
URL: http://svn.apache.org/viewcvs/httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm?rev=178491&r1=178490&r2=178491&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm (original)
+++ httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm Wed May 25 10:19:41 2005
@@ -39,6 +39,7 @@
 
     my $jar = $req->jar or return;
     $jar->cookie_class(__PACKAGE__);
+    return $jar->get(shift) if @_;
     return wantarray ? %$jar : $jar;
 }
 
@@ -92,7 +93,7 @@
 package Apache2::Cookie::Jar;
 use APR::Request::Apache2;
 push our @ISA, qw/APR::Request::Apache2/;
-sub cookies { Apache2::Cookie->fetch(shift) }
+sub cookies { Apache2::Cookie->fetch(@_) }
 *Apache2::Cookie::Jar::status = *APR::Request::jar_status;
 
 my %old_args = (



Mime
View raw message