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 "";