Fix utils/perldoc.PL for dos-djgpp:

[p5sagit/p5-mst-13.2.git] / vms / vms_yfix.pl

diff --git a/vms/vms_yfix.pl b/vms/vms_yfix.pl
index f57ea1d..08a8dbf 100644 (file)
--- 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