Change 19034 by [EMAIL PROTECTED] on 2003/03/20 01:31:39
ensure SVs returned by Win32::Get{Short,Full}PathName() are
NUL-terminated
Affected files ...
... //depot/maint-5.6/perl/win32/win32.c#38 edit
Differences ...
==== //depot/maint-5.6/perl/win32/win32.c#38 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c#37~18377~ Mon Dec 30 20:02:12 2002
+++ perl/win32/win32.c Wed Mar 19 17:31:39 2003
@@ -4216,6 +4216,7 @@
} while (len >= SvLEN(shortpath) && sv_grow(shortpath,len+1));
if (len) {
SvCUR_set(shortpath,len);
+ *SvEND(shortpath) = '\0';
ST(0) = shortpath;
XSRETURN(1);
}
@@ -4259,6 +4260,7 @@
items = 2;
}
SvCUR_set(fullpath,len);
+ *SvEND(fullpath) = '\0';
ST(0) = fullpath;
XSRETURN(items);
}
End of Patch.
