Don't upgrade the arguments if it's not necessary

[perl/modules/Scalar-Vec-Util.git] / Util.xs

diff --git a/Util.xs b/Util.xs
index 8f6345b2a584d426266dcae7c61a64c1b0ba9739..f954a42bcac3126d10215331e9b23ac3f521c139 100644 (file)
--- a/Util.xs
+++ b/Util.xs
@@ -115,6 +115,8 @@ CODE:
   croak(svu_error_invarg);
 
  l  = SvUV(sl);
+ if (!l)
+  XSRETURN(0);
  s1 = SvUV(ss1);
  s2 = SvUV(ss2);
  SvUPGRADE(sv1, SVt_PV);