diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-18 20:32:23 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-18 20:32:23 +0000 |
| commit | fd06b02ce1aae5ae555b7101c2fe3e521cb2fd9f (patch) | |
| tree | 0568c9d522aa72801e35877a4426431580ff4fd3 /pp_ctl.c | |
| parent | 6f479e052512b94a76fb842505b7bc960ade1ac4 (diff) | |
| download | perl-fd06b02ce1aae5ae555b7101c2fe3e521cb2fd9f.tar.gz | |
Rename PL_breakable_sub_generation to PL_breakable_sub_gen, to please
the ANSI gods of VMS.
p4raw-id: //depot/perl@34886
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3653,7 +3653,7 @@ PP(pp_entereval) register PERL_CONTEXT *cx; SV *sv; const I32 gimme = GIMME_V; - const U32 was = PL_breakable_sub_generation; + const U32 was = PL_breakable_sub_gen; char tbuf[TYPE_DIGITS(long) + 12]; char *tmpbuf = tbuf; char *safestr; @@ -3731,7 +3731,7 @@ PP(pp_entereval) PUTBACK; ok = doeval(gimme, NULL, runcv, seq); if ((PERLDB_LINE || PERLDB_SAVESRC) - && was != PL_breakable_sub_generation /* Some subs defined here. */ + && was != PL_breakable_sub_gen /* Some subs defined here. */ && ok) { /* Just need to change the string in our writable scratch buffer that will be used at scope exit to delete this eval's "file" name, to |