diff options
| author | Stephen McCamant <smcc@mit.edu> | 2003-07-15 05:57:26 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-17 21:49:10 +0000 |
| commit | 8ec8fbef8c5eb2490dc99115adb2487f3bf9ddab (patch) | |
| tree | c7db0f810688a3831f06d817f74501a9e60ace5d /op.c | |
| parent | 7a6ca5fd18d8809104f4d9b20c04b0a426e5fc08 (diff) | |
| download | perl-8ec8fbef8c5eb2490dc99115adb2487f3bf9ddab.tar.gz | |
[PATCH] Increment cop_seqmax in utilize()
Date: Tue, 15 Jul 2003 09:57:26 -0400
Message-ID: <16148.2118.348073.76671@syllepsis.MIT.EDU>
Subject: [PATCH] B::Concise 0.56: refcount and BEGIN improvements
From: Stephen McCamant <smcc@mit.edu>
Date: Tue, 15 Jul 2003 09:57:31 -0400
Message-ID: <16148.2123.305325.480187@syllepsis.MIT.EDU>
p4raw-id: //depot/perl@20166
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2931,6 +2931,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg) PL_hints |= HINT_BLOCK_SCOPE; PL_copline = NOLINE; PL_expect = XSTATE; + PL_cop_seqmax++; /* Purely for B::*'s benefit */ } /* |