From 75aa29074f273164a8029d2fd8c963f8de5aea49 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 25 Mar 2011 21:43:42 +0000
Subject: it might even complie

---
 lib/DeWeave/WBO.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/DeWeave/WBO.pm')

diff --git a/lib/DeWeave/WBO.pm b/lib/DeWeave/WBO.pm
index db89581..3f551dd 100644
--- a/lib/DeWeave/WBO.pm
+++ b/lib/DeWeave/WBO.pm
@@ -36,7 +36,7 @@ has ttl => (
 );
 
 sub from_json {
-    my ($class,$json)=@_;
+    my ($class,$json,$crypt)=@_;
 
     my $j = JSON::Any->new;
 
@@ -47,6 +47,7 @@ sub from_json {
 
             @$args{keys %$extra_args} =
                 values %$extra_args;
+            $args->{__crypt}=$crypt;
         };
     }
 
-- 
cgit v1.2.3