summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorchromatic <chromatic@wgz.org>2009-07-27 14:44:15 +0200
committerVincent Pit <perl@profvince.com>2009-07-27 14:49:25 +0200
commit6100a0a495d0f5504fc134f242a1ebed97a87087 (patch)
tree852a56630fef4151ec3504847635b537dbed9b9f /pp_sys.c
parent174830c759611b7e2c36d109e8a5529e95868eb0 (diff)
downloadperl-6100a0a495d0f5504fc134f242a1ebed97a87087.tar.gz
syswrite prints garbage if called with empty scalar and non-zero offset
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 23f79ba4c6..ec12cd4aa5 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1919,7 +1919,7 @@ PP(pp_send)
DIE(aTHX_ "Offset outside string");
}
offset += blen_chars;
- } else if (offset >= (IV)blen_chars && blen_chars > 0) {
+ } else if (offset >= (IV)blen_chars) {
Safefree(tmpbuf);
DIE(aTHX_ "Offset outside string");
}