Silence a VC++ warning

(conversion from 'long ' to 'char ', possible loss of data)

p4raw-id: //depot/perl@27347

diff --git a/sv.c b/sv.c
index b4bc5a7..af907c1 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2137,7 +2137,7 @@ S_sv_2iuv_common(pTHX_ SV *sv) {
     }
     else  {
        if (isGV_with_GP(sv)) {
-           return PTR2IV(glob_2inpuv((GV *)sv, NULL, TRUE));
+           return (bool)PTR2IV(glob_2inpuv((GV *)sv, NULL, TRUE));
        }
 
        if (!(SvFLAGS(sv) & SVs_PADTMP)) {