From: Chip Salzenberg <chip@perl.com>
Date: Wed, 5 Feb 1997 20:59:11 +0000 (+1200)
Subject: Catch C<use integer; $x % 0>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa3060398a4e37b7717d3d3ed9ffd2cf35035e26;p=p5sagit%2Fp5-mst-13.2.git

Catch C<use integer; $x % 0>
---

diff --git a/pp.c b/pp.c
index 5cab7a2..b394426 100644
--- a/pp.c
+++ b/pp.c
@@ -1138,6 +1138,8 @@ PP(pp_i_modulo)
     dSP; dATARGET; tryAMAGICbin(mod,opASSIGN); 
     {
       dPOPTOPiirl;
+      if (!right)
+	DIE("Illegal modulus zero");
       SETi( left % right );
       RETURN;
     }