diff options
Diffstat (limited to 'vms/vms_yfix.pl')
| -rw-r--r-- | vms/vms_yfix.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/vms/vms_yfix.pl b/vms/vms_yfix.pl index f57ea1d515..08a8dbffb1 100644 --- a/vms/vms_yfix.pl +++ b/vms/vms_yfix.pl @@ -27,6 +27,11 @@ while (<C>) { # accomodate old VAXC's macro susbstitution pecularities $_ = "# ifndef getenv\n$_# endif\n"; } + elsif ( /getenv\("YYDEBUG"\)/ ) { + # Reset the "error" status if an optional lookup fails + while (not /^\s+\}/) { print COUT; $_ = <C>; } + $_ .= "\telse SETERRNO(0,SS\$_NORMAL);\n"; + } else { # add the dEXT tag to definitions of global vars, so we'll insert # a globaldef when perly.c is compiled |