diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-07-01 12:24:28 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-07-01 12:24:28 +0000 |
commit | 462e5cf694f345fbf34a1f95e9a82957e59dcc2b (patch) | |
tree | ca9bf97cf7ce9e08168a2f31060050ca5073d42c /pp_sys.c | |
parent | 3bc5dc61eb7997c904fe06e07f74e776f3ee17eb (diff) | |
download | perl-462e5cf694f345fbf34a1f95e9a82957e59dcc2b.tar.gz |
Support for op in global register (still buggy)
p4raw-id: //depot/perl@34
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -522,7 +522,7 @@ PP(pp_tie) CATCH_SET(TRUE); ENTER; - SAVESPTR(op); + SAVEOP(); op = (OP *) &myop; if (perldb && curstash != debstash) op->op_private |= OPpENTERSUB_DB; @@ -633,7 +633,7 @@ PP(pp_dbmopen) CATCH_SET(TRUE); ENTER; - SAVESPTR(op); + SAVEOP(); op = (OP *) &myop; if (perldb && curstash != debstash) op->op_private |= OPpENTERSUB_DB; |