Wrong skip() arguments.

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index 4e62d06..bd68c41 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1416,7 +1416,7 @@ print \"  \\@INC:\\n    @INC\\n\";");
 
     /* now parse the script */
 
-    SETERRNO(0,VMS_SS_NORMAL);
+    SETERRNO(0,SS$_NORMAL);
     PL_error_count = 0;
 #ifdef MACOS_TRADITIONAL
     if (gMacPerl_SyntaxError = (yyparse() || PL_error_count)) {