1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index af117bcf92..ce049c9c58 100644
--- a/toke.c
+++ b/toke.c
@@ -1935,7 +1935,7 @@ S_incl_perldb(pTHX)
 
 	if (pdb)
 	    return pdb;
-	SETERRNO(0,SS$_NORMAL);
+	SETERRNO(0,VMS_SS_NORMAL);
 	return "BEGIN { require 'perl5db.pl' }";
     }
     return "";