diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-11-30 22:16:51 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-12-02 15:43:16 +0000 |
| commit | e297595301ee5f3b0643be0fb1fffae9b6b548a0 (patch) | |
| tree | 180f2d7e6d134e4213582d3b546ed42908da3da8 /sv.c | |
| parent | 1a67fee7d910c67790fff4a69f2f20f7628aa80a (diff) | |
| download | perl-e297595301ee5f3b0643be0fb1fffae9b6b548a0.tar.gz | |
$0 mofifying part I
Subject: [PATCH] $0 modifying
Message-ID: <20021130181651.GA5876@kosh.hut.fi>
p4raw-id: //depot/perl@18229
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -10233,12 +10233,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, /* pseudo environmental stuff */ PL_origargc = proto_perl->Iorigargc; - i = PL_origargc; - New(0, PL_origargv, i+1, char*); - PL_origargv[i] = '\0'; - while (i-- > 0) { - PL_origargv[i] = SAVEPV(proto_perl->Iorigargv[i]); - } + PL_origargv = proto_perl->Iorigargv; param->stashes = newAV(); /* Setup array of objects to call clone on */ |