X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Util.xs;fp=Util.xs;h=f954a42bcac3126d10215331e9b23ac3f521c139;hb=1f8495d3b4e12ac774a20fde0ac23297f6e2108e;hp=8f6345b2a584d426266dcae7c61a64c1b0ba9739;hpb=c8cc00e5e84cd54ed1a7a9858d8ed029bd6d5931;p=perl%2Fmodules%2FScalar-Vec-Util.git

diff --git a/Util.xs b/Util.xs
index 8f6345b..f954a42 100644
--- 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);