diff options
author | chromatic <chromatic@wgz.org> | 2009-07-27 14:44:15 +0200 |
---|---|---|
committer | Vincent Pit <perl@profvince.com> | 2009-07-27 14:49:25 +0200 |
commit | 6100a0a495d0f5504fc134f242a1ebed97a87087 (patch) | |
tree | 852a56630fef4151ec3504847635b537dbed9b9f /pp_sys.c | |
parent | 174830c759611b7e2c36d109e8a5529e95868eb0 (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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"); } |