diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 07:19:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 07:19:39 +0000 |
| commit | e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8 (patch) | |
| tree | 2486134e928dceaecf5804e2e21da9bbf3065728 /op.c | |
| parent | 0a3e5ca21a6646f3abf4cafe2bcefb8a5b50aa83 (diff) | |
| download | perl-e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8.tar.gz | |
fix globals caught by change#1927; builds and tests on Solaris
p4raw-link: @1927 on //depot/perl: eb07465ebe1238598e948058857ec948c6697f86
p4raw-id: //depot/perl@1936
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1582,7 +1582,7 @@ block_start(int full) PL_pad_reset_pending = FALSE; SAVEHINTS(); PL_hints &= ~HINT_BLOCK_SCOPE; - SAVEPPTR(compiling.cop_warnings); + SAVEPPTR(PL_compiling.cop_warnings); if (PL_compiling.cop_warnings != WARN_ALL && PL_compiling.cop_warnings != WARN_NONE) { PL_compiling.cop_warnings = newSVsv(PL_compiling.cop_warnings) ; @@ -1601,7 +1601,7 @@ block_end(I32 floor, OP *seq) OP* retval = scalarseq(seq); LEAVE_SCOPE(floor); PL_pad_reset_pending = FALSE; - compiling.op_private = PL_hints; + PL_compiling.op_private = PL_hints; if (needblockscope) PL_hints |= HINT_BLOCK_SCOPE; /* propagate out */ pad_leavemy(PL_comppad_name_fill); @@ -2887,7 +2887,7 @@ newSTATEOP(I32 flags, char *label, OP *o) #ifdef NATIVE_HINTS cop->op_private |= NATIVE_HINTS; #endif - compiling.op_private = cop->op_private; + PL_compiling.op_private = cop->op_private; cop->op_next = (OP*)cop; if (label) { |