diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1997-11-26 08:32:09 -0400 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-17 14:44:26 +0000 |
| commit | 61bb59065bf1b12edab39b124e7373fb357e2d73 (patch) | |
| tree | ebb609aa27a57d50ce9b7784a3b992673a9a6476 /vms/vms_yfix.pl | |
| parent | 39e571d41067215a80f26089b260f1418caeb36b (diff) | |
| download | perl-61bb59065bf1b12edab39b124e7373fb357e2d73.tar.gz | |
Lots of VMS changes. vms/gen_shrfls.pl (which parses header files)
needs rewriting now that we use perlvars.h and foovar.h:
Subject: [PATCH] 5.004_54 under VMS (fwd)
p4raw-id: //depot/perl@374
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 |