interchange-cvs at icdevgroup
Feb 9, 2011, 2:59 AM
Post #1 of 1
(194 views)
Permalink
|
|
[interchange] Allow code references to be stored into the session depending on the
|
|
commit b4ef75656388a5108f49732d26d2c194b036fa26
Author: Stefan Hornburg (Racke) <racke [at] linuxia>
Date: Wed Feb 9 11:57:31 2011 +0100
Allow code references to be stored into the session depending on the
environment variable MINIVEND_STORABLE_CODE.
lib/Vend/Util.pm | 7 +++++++
1 files changed, 7 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/Util.pm b/lib/Vend/Util.pm
index d6ae6a9..af44984 100644
--- a/lib/Vend/Util.pm
+++ b/lib/Vend/Util.pm
@@ -688,6 +688,13 @@ eval {
die unless $ENV{MINIVEND_STORABLE};
require Storable;
import Storable 'freeze';
+
+ if ($ENV{MINIVEND_STORABLE_CODE}) {
+ # allow code references to be stored to the session
+ $Storable::Deparse = 1;
+ $Storable::Eval = 1;
+ }
+
$Fast_uneval = \&Storable::freeze;
$Fast_uneval_file = \&Storable::store;
$Eval_routine = \&Storable::thaw;
_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs
|
