diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:57 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:57 +0000 |
| commit | ae98613044a1084886d80b8283b25bad38cfd171 (patch) | |
| tree | 7dfe17f2ae5835a17db41a0bb4d7ef903d6ff3d9 /perly.c | |
| parent | bf38876a182e0df9dd73362f56cf0ab8b43aa789 (diff) | |
| download | perl-ae98613044a1084886d80b8283b25bad38cfd171.tar.gz | |
perl 3.0 patch #4 Patch #2 continued
Diffstat (limited to 'perly.c')
| -rw-r--r-- | perly.c | 20 |
1 files changed, 13 insertions, 7 deletions
@@ -1,4 +1,4 @@ -char rcsid[] = "$Header: perly.c,v 3.0 89/10/18 15:22:21 lwall Locked $\nPatch level: ###\n"; +char rcsid[] = "$Header: perly.c,v 3.0.1.1 89/11/11 04:50:04 lwall Locked $\nPatch level: ###\n"; /* * Copyright (c) 1989, Larry Wall * @@ -6,6 +6,9 @@ char rcsid[] = "$Header: perly.c,v 3.0 89/10/18 15:22:21 lwall Locked $\nPatch l * as specified in the README file that comes with the perl 3.0 kit. * * $Log: perly.c,v $ + * Revision 3.0.1.1 89/11/11 04:50:04 lwall + * patch2: moved yydebug to where its type didn't matter + * * Revision 3.0 89/10/18 15:22:21 lwall * 3.0 baseline * @@ -92,18 +95,17 @@ setuid perl scripts securely.\n"); perldb = TRUE; s++; goto reswitch; -#ifdef DEBUGGING case 'D': +#ifdef DEBUGGING #ifdef TAINT if (euid != uid || egid != gid) fatal("No -D allowed in setuid scripts"); #endif debug = atoi(s+1); -#ifdef YYDEBUG - yydebug = (debug & 1); +#else + warn("Recompile perl with -DDEBUGGING to use -D switch\n"); #endif break; -#endif case 'e': #ifdef TAINT if (euid != uid || egid != gid) @@ -531,8 +533,12 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); fatal("Execution aborted due to compilation errors.\n"); New(50,loop_stack,128,struct loop); - New(51,debname,128,char); - New(52,debdelim,128,char); +#ifdef DEBUGGING + if (debug) { + New(51,debname,128,char); + New(52,debdelim,128,char); + } +#endif curstash = defstash; preprocess = FALSE; |