From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 20 Jun 2001 14:03:20 +0000 (+0000)
Subject: Security tweak on readlink().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97dcea33347a88fd451a9b2e4f27b9d77c268b94;p=p5sagit%2Fp5-mst-13.2.git

Security tweak on readlink().

p4raw-id: //depot/perl@10753
---

diff --git a/pp_sys.c b/pp_sys.c
index c3b34c6..b95875b 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3515,7 +3515,7 @@ PP(pp_readlink)
     TAINT;
 #endif
     tmps = POPpx;
-    len = readlink(tmps, buf, sizeof buf);
+    len = readlink(tmps, buf, sizeof(buf) - 1);
     EXTEND(SP, 1);
     if (len < 0)
 	RETPUSHUNDEF;