Inlined newSV_type(SVt_NULL) leaner than non-inlined newSV(0)

When a function outside of sv.c creates a SV via newSV(0):
 * There is a call to Perl_newSV
 * A SV head is uprooted and its flags set
 * A runtime check is made to effectively see if 0 > 0
 * The new SV* is returned

Replacing newSV(0) with newSV_type(SVt_NULL) should be more efficient,
because (assuming there are SV heads to uproot), the only step is:
 * A SV head is uprooted and its flags set

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index ffb7320145..f77594ccd4 100644
--- a/toke.c
+++ b/toke.c
@@ -2382,7 +2382,7 @@ S_force_strict_version(pTHX_ char *s)
         s++;
 
     if (is_STRICT_VERSION(s,&errstr)) {
-        SV *ver = newSV(0);
+        SV *ver = newSV_type(SVt_NULL);
         s = (char *)scan_version(s, ver, 0);
         version = newSVOP(OP_CONST, 0, ver);
     }