Make srand() return "0 but true" for 0, for backwards compatible behaviour.

1 files changed, 8 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index ec585ab933..2dfca4cbc2 100644
--- a/pp.c
+++ b/pp.c
@@ -2954,7 +2954,14 @@ PP(pp_srand)
     const UV anum = (MAXARG < 1) ? seed() : POPu;
     (void)seedDrand01((Rand_seed_t)anum);
     PL_srand_called = TRUE;
-    XPUSHu(anum);
+    if (anum)
+	XPUSHu(anum);
+    else {
+	/* Historically srand always returned true. We can avoid breaking
+	   that like this:  */
+	sv_setpvs(TARG, "0 but true");
+	XPUSHTARG;
+    }
     RETURN;
 }