diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-20 05:23:15 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-20 05:23:15 +0000 |
commit | 4ecd490ccf7bf09140e24e001c5acc2d417d685c (patch) | |
tree | c43dc9282d0b378beb87dc2a0ad71b929d40c9f6 /win32 | |
parent | 7f274f0f6c9842ea688f851b8245ef7d42203120 (diff) | |
download | perl-4ecd490ccf7bf09140e24e001c5acc2d417d685c.tar.gz |
Integrate:
[ 19033]
file test operators weren't doing the right thing if the SV
passed to them wasn't NUL-terminated
[ 19034]
ensure SVs returned by Win32::Get{Short,Full}PathName() are
NUL-terminated
p4raw-link: @19034 on //depot/maint-5.6/perl: d453a28c5f70420dd114c2f0f61ec1aaf34109e0
p4raw-link: @19033 on //depot/maint-5.6/perl: 1ad7974d3a92321c870ce2bd5ce4e57098b51c10
p4raw-id: //depot/perl@19036
p4raw-integrated: from //depot/maint-5.6/perl@19028 'merge in' doio.c
(@16333..) win32/win32.c (@18377..)
Diffstat (limited to 'win32')
-rw-r--r-- | win32/win32.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index 070ee9c132..87665ff372 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4647,6 +4647,7 @@ XS(w32_GetShortPathName) } while (len >= SvLEN(shortpath) && sv_grow(shortpath,len+1)); if (len) { SvCUR_set(shortpath,len); + *SvEND(shortpath) = '\0'; ST(0) = shortpath; XSRETURN(1); } @@ -4690,6 +4691,7 @@ XS(w32_GetFullPathName) items = 2; } SvCUR_set(fullpath,len); + *SvEND(fullpath) = '\0'; ST(0) = fullpath; XSRETURN(items); } |