improved number detection performance

mojolicious · May 12, 2014 · 9934604 · 9934604
1 parent b125143
commit 9934604
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/lib/Mojo/JSON.pm b/lib/Mojo/JSON.pm
@@ -263,11 +263,12 @@ sub _encode_value {
   return 'null' unless defined $value;
 
   # Number
-  my $num = $value;
-  { no warnings 'numeric'; $num += 0 }
-  my $flags = B::svref_2object(\$value)->FLAGS;
-  return $num
-    if $flags & (B::SVp_IOK | B::SVp_NOK) && $num eq $value && $num * 0 == 0;
+  if (B::svref_2object(\$value)->FLAGS & (B::SVp_IOK | B::SVp_NOK)) {
+    no warnings 'numeric';
+    my $num = $value;
+    $num += 0;
+    return $num if $num eq $value && $num * 0 == 0;
+  }
 
   # String
   return _encode_string($value);