Should prefer IV when both IV and NV are OK about msgpack-perl HOT 1 OPEN

--- PP-orig.pm	2018-01-11 10:58:21.374129040 -0500
+++ PP.pm	2018-01-11 10:13:01.782109956 -0500
@@ -271,10 +271,7 @@
         return $header . $value;
 
     }
-    elsif( $flags & B::SVp_NOK ) { # double only
-        return pack_double( $value );
-    }
-    elsif ( $flags & B::SVp_IOK ) {
+    elsif ( $flags & B::SVp_IOK && $value == int($value) ) {
         if ($value >= 0) { # UV
             return    $value <= 127 ?    CORE::pack 'C',        $value
                     : $value < 2 **  8 ? CORE::pack 'CC', 0xcc, $value
@@ -290,6 +287,9 @@
                     : pack_int64( $value );
         }
     }
+    elsif( $flags & B::SVp_NOK ) { # double only
+        return pack_double( $value );
+    }
     else {
         _unexpected("data type %s", $b_obj);
     }