Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Allow code references to be stored into the session depending on the

environment variable MINIVEND_STORABLE_CODE.
  • Loading branch information...
commit b4ef75656388a5108f49732d26d2c194b036fa26 1 parent 3c81416
@racke racke authored
Showing with 7 additions and 0 deletions.
  1. +7 −0 lib/Vend/Util.pm
View
7 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;
Please sign in to comment.
Something went wrong with that request. Please try again.