Changeset 10740 for lang/perl

Timestamp:

04/29/08 20:10:26 (5 years ago)

Author:

tokuhirom

Message:

引数ミスってた

Files:

• lang/perl/HTTP-Session/trunk/lib/HTTP/Session.pm (modified) (1 diff)

lang/perl/HTTP-Session/trunk/lib/HTTP/Session.pm

@@ -88 +88 @@
     my ($self, ) = @_;
     croak "double save" if $self->is_saved;
-    $self->store->save_session( $self->params );
+    $self->store->save_session( $self->session_id => $self->params );
     $self->is_saved(1);
 }