Changeset 25904 for lang/perl/NanoA

Timestamp:

12/05/08 10:42:05 (4 years ago)

Author:

kazuho

Message:

fix bug that lead to unexpected header generation under mod_perl

Files:

• lang/perl/NanoA/trunk/app/plugin/session.pm (modified) (1 diff)

lang/perl/NanoA/trunk/app/plugin/session.pm

@@ -36 +36 @@
         ),
         state   => HTTP::Session::State::Cookie->new(),
-        request => $app->query,
+        request => bless(\do { "" }, 'plugin::session::request'),
         id      => 'HTTP::Session::ID::MD5',
     );
 }
 
+package plugin::session::request;
+# a dummy object (since cookie parameter can be retrieved via %ENV)
+sub header {}
+
 1;