diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-08-09 15:51:44 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-08-09 21:08:59 +0000 |
| commit | 14f338dc60207c41838439f6f09615a0c4c9bf39 (patch) | |
| tree | fea73174b445281e731d75407b0acf5c55163902 /scope.h | |
| parent | 384679aa783f7270f4f3edc35b03682e7825671f (diff) | |
| download | perl-14f338dc60207c41838439f6f09615a0c4c9bf39.tar.gz | |
add "$lexical not available" warning in C<for my $lex ()>
Message-ID: <20030809135144.GC4997@fdgroup.com>
p4raw-id: //depot/perl@20591
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -47,6 +47,7 @@ #define SAVEt_MORTALIZESV 36 #define SAVEt_SHARED_PVREF 37 #define SAVEt_BOOL 38 +#define SAVEt_SET_SVFLAGS 39 #ifndef SCOPE_SAVES_SIGNAL_MASK #define SCOPE_SAVES_SIGNAL_MASK 0 @@ -132,6 +133,7 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. #define SAVEGENERICSV(s) save_generic_svref((SV**)&(s)) #define SAVEGENERICPV(s) save_generic_pvref((char**)&(s)) #define SAVESHAREDPV(s) save_shared_pvref((char**)&(s)) +#define SAVESETSVFLAGS(sv,mask,val) save_set_svflags(sv,mask,val) #define SAVEDELETE(h,k,l) \ save_delete(SOFT_CAST(HV*)(h), SOFT_CAST(char*)(k), (I32)(l)) #define SAVEDESTRUCTOR(f,p) \ |