diff options
| author | Larry Wall <lwall@netlabs.com> | 1993-02-04 22:50:33 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1993-02-04 22:50:33 +0000 |
| commit | e334a159a5616cab575044bafaf68f75b7bb3a16 (patch) | |
| tree | 47369293eb7417e5322f7fe46e1a1cfc0d9c69ef /perl.c | |
| parent | 514dae0dba791ec01681adb3b3946a7646e146b3 (diff) | |
| download | perl-e334a159a5616cab575044bafaf68f75b7bb3a16.tar.gz | |
perl 4.0 patch 36: (combined patch)perl-4.0.36
Since Ed Barton sent me a patch for the malignent form of "Malformed
cmd links", I finally broke down and made a patch for the various
other little things that have been accumulating on version 4.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -128,7 +128,7 @@ setuid perl scripts securely.\n"); #ifdef TAINT #ifndef DOSUID if (uid == euid && gid == egid) - taintanyway == TRUE; /* running taintperl explicitly */ + taintanyway = TRUE; /* running taintperl explicitly */ #endif #endif (void)sprintf(index(rcsid,'#'), "%d\n", PATCHLEVEL); @@ -1168,6 +1168,8 @@ int *arglast; eval_root = myroot; else if (in_eval != 1 && myroot != last_root) cmd_free(myroot); + if (eval_root == myroot) + eval_root = Nullcmd; } perldb = oldperldb; |