diff options
| author | Jan Dubois <jand@activestate.com> | 2003-11-27 13:09:51 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-02 21:34:57 +0000 |
| commit | ad7eccf4e20fc02a9040decd348da03cb4b3de1a (patch) | |
| tree | 35aa56dabecd63ffbb9d897fd85a69186eede860 /mg.c | |
| parent | ac90fb77766c098cd9f3441aa6691af8456d9c52 (diff) | |
| download | perl-ad7eccf4e20fc02a9040decd348da03cb4b3de1a.tar.gz | |
setting $0 still broken
Message-ID: <f3mdsv8dcv4asle0kbhiijk0adu1l25sr3@4ax.com>
p4raw-id: //depot/perl@21833
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2408,7 +2408,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) /* Longer than original, will be truncated. We assume that * PL_origalen bytes are available. */ Copy(s, PL_origargv[0], PL_origalen-1, char); - PL_origargv[0][PL_origalen-1] = 0; } else { /* Shorter than original, will be padded. */ @@ -2421,9 +2420,10 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) * --jhi */ (int)' ', PL_origalen - len - 1); - for (i = 1; i < PL_origargc; i++) - PL_origargv[i] = 0; } + PL_origargv[0][PL_origalen-1] = 0; + for (i = 1; i < PL_origargc; i++) + PL_origargv[i] = 0; UNLOCK_DOLLARZERO_MUTEX; break; #endif |