From e0e08f0cf2e8b3ce4a3313aeffe9262fa5320c59 Mon Sep 17 00:00:00 2001
From: Michael Rash <mbr@cipherdyne.org>
Date: Mon, 29 Jun 2009 00:52:12 +0000
Subject: [PATCH] bug fix suggested by Damien to allow the recompute of the SPA
 digest to properly happen when calling spa_digest() with a true value

git-svn-id: file:///home/mbr/svn/fwknop/trunk@109 510a4753-2344-4c79-9c09-4d669213fbeb
---
 perl/FKO/lib/FKO.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/FKO/lib/FKO.pm b/perl/FKO/lib/FKO.pm
index 377f6f33..fb17b633 100644
--- a/perl/FKO/lib/FKO.pm
+++ b/perl/FKO/lib/FKO.pm
@@ -265,13 +265,13 @@ sub spa_client_timeout {
 
 sub spa_digest {
     my $self = shift;
-    my $val  = shift;
     my $recompute = shift || 0;
 
+    my $val = '';
+
     return FKO::_set_spa_digest($self->{_ctx})
         if($recompute);
 
-    $val = '';
     $self->{_err} = FKO::_get_spa_digest($self->{_ctx}, $val);
 
     return($self->_check_return_val($val));