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

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index dbb273a263..6773f3f13c 100644
--- a/toke.c
+++ b/toke.c
@@ -1068,6 +1068,7 @@ incl_perldb(void)
 
 	if (pdb)
 	    return pdb;
+	SETERRNO(0,SS$_NORMAL);
 	return "BEGIN { require 'perl5db.pl' }";
     }
     return "";