From 56965adb057bb6b7ba2de0dca5635b32b0fe71bc Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Thu, 19 Apr 2012 06:35:00 +0000
Subject: [PATCH] warning fix using vc++

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@13004 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/perl5/perlprimtypes.swg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Lib/perl5/perlprimtypes.swg b/Lib/perl5/perlprimtypes.swg
index 15e8feef3..d7ac6f94e 100644
--- a/Lib/perl5/perlprimtypes.swg
+++ b/Lib/perl5/perlprimtypes.swg
@@ -23,7 +23,7 @@ SWIG_AsVal_dec(bool)(SV *obj, bool* val)
     if (val) *val = false;
     return SWIG_OK;
   } else {
-    if (val) *val = (bool)(SvTRUE(obj));
+    if (val) *val = SvTRUE(obj) ? true : false;
     return SWIG_AddCast(SWIG_OK);    
   }
 }