diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 1997-11-30 07:49:45 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 1997-11-30 07:49:45 +0000 |
| commit | eeacafe7910fb1a4f74af72f94a32acf464b6319 (patch) | |
| tree | 91e47a98a8a5803678d5e634741442debc7cec27 /gnu/usr.bin/perl/mg.h | |
| parent | 700df82d5de7cccb990b704f31bed3b5bc128df6 (diff) | |
perl 5.004_04
Diffstat (limited to 'gnu/usr.bin/perl/mg.h')
| -rw-r--r-- | gnu/usr.bin/perl/mg.h | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/mg.h b/gnu/usr.bin/perl/mg.h index ab24eb03abb..c4647465572 100644 --- a/gnu/usr.bin/perl/mg.h +++ b/gnu/usr.bin/perl/mg.h @@ -1,6 +1,6 @@ /* mg.h * - * Copyright (c) 1991-1994, Larry Wall + * Copyright (c) 1991-1997, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -32,5 +32,10 @@ struct magic { #define MGf_MINMATCH 1 -#define MgTAINTEDDIR(mg) (mg->mg_flags & MGf_TAINTEDDIR) -#define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR) +#define MgTAINTEDDIR(mg) (mg->mg_flags & MGf_TAINTEDDIR) +#define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR) +#define MgTAINTEDDIR_off(mg) (mg->mg_flags &= ~MGf_TAINTEDDIR) + +#define MgPV(mg,lp) (((lp = (mg)->mg_len) == HEf_SVKEY) ? \ + SvPV((SV*)((mg)->mg_ptr),lp) : \ + (mg)->mg_ptr) |