From b17cb08ddc9707771f7a67ae55d8f7a51f990d88 Mon Sep 17 00:00:00 2001
From: Michael Rash <mbr@cipherdyne.org>
Date: Wed, 17 Apr 2013 23:27:54 -0400
Subject: [PATCH] fixed two type mismatch compilation warnings for the perl FKO
 extension

---
 perl/FKO/FKO.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/FKO/FKO.xs b/perl/FKO/FKO.xs
index 5f60ea8e..3eaa9ba3 100644
--- a/perl/FKO/FKO.xs
+++ b/perl/FKO/FKO.xs
@@ -172,7 +172,7 @@ int
 _get_encryption_mode(ctx, val)
     INPUT:
     fko_ctx_t ctx;
-    short val
+    int val
     CODE:
     RETVAL = fko_get_spa_encryption_mode(ctx, &val);
     OUTPUT:
@@ -195,7 +195,7 @@ _get_hmac_type(ctx, hmac_type)
     fko_ctx_t ctx;
     short    hmac_type;
     CODE:
-    RETVAL = fko_get_spa_hmac_type(ctx, hmac_type);
+    RETVAL = fko_get_spa_hmac_type(ctx, &hmac_type);
     OUTPUT:
     RETVAL