[perl #8262] //g loops infinitely on tainted data

[p5sagit/p5-mst-13.2.git] / util.c

diff --git a/util.c b/util.c
index 5b8aed0..d8b28f2 100644 (file)
--- a/util.c
+++ b/util.c
@@ -5055,7 +5055,7 @@ Perl_mem_log_alloc(const UV n, const UV typesize, const char *typename, Malloc_t
                                  " %s = %"IVdf": %"UVxf"\n",
                                  filename, linenumber, funcname, n, typesize,
                                  typename, n * typesize, PTR2UV(newalloc));
-    PerlLIO_write(2,  buf, len));
+    PerlLIO_write(2,  buf, len);
 #endif
     return newalloc;
 }