diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-07-17 13:35:51 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-07-17 13:35:51 +0000 |
| commit | 6d4ff0d2f86d3c242b3f29bee3c2734df9ab8a3a (patch) | |
| tree | 214aad99b5b3c414ccc9a349a7aacbdda3b96649 /pp.c | |
| parent | c03294656c9980c235cc5951a63088fd96d33704 (diff) | |
| download | perl-6d4ff0d2f86d3c242b3f29bee3c2734df9ab8a3a.tar.gz | |
Fix multiple problems with lexical @_.
p4raw-id: //depot/perl@39
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3930,7 +3930,11 @@ PP(pp_split) if (pm->op_pmreplroot) ary = GvAVn((GV*)pm->op_pmreplroot); else if (gimme != G_ARRAY) +#ifdef USE_THREADS + ary = (AV*)curpad[0]; +#else ary = GvAVn(defgv); +#endif /* USE_THREADS */ else ary = Nullav; if (ary && (gimme != G_ARRAY || (pm->op_pmflags & PMf_ONCE))) { |