Change 21538 by [EMAIL PROTECTED] on 2003/10/26 08:08:02
Fix off-by-one in $0 set magic. (From Autrijus.)
The whole PL_origalen thing in perl.c looks very hokey.
Affected files ...
... //depot/perl/mg.c#280 edit
Differences ...
==== //depot/perl/mg.c#280 (text) ====
Index: perl/mg.c
--- perl/mg.c#279~21440~ Sun Oct 12 12:58:05 2003
+++ perl/mg.c Sun Oct 26 01:08:02 2003
@@ -2403,7 +2403,7 @@
if (len >= (STRLEN)PL_origalen) {
/* Longer than original, will be truncated. */
Copy(s, PL_origargv[0], PL_origalen, char);
- PL_origargv[0][PL_origalen - 1] = 0;
+ PL_origargv[0][PL_origalen] = 0;
}
else {
/* Shorter than original, will be padded. */
End of Patch.
