Oh, bother. In Tru64 cc -std1 was looking rather nice

[perl5.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index 804e84f..09c1a19 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3322,7 +3322,7 @@ trylocal: {
        RETPUSHUNDEF;
     }
     else
-       SETERRNO(0, VMS_SS_NORMAL);
+       SETERRNO(0, SS$_NORMAL);
 
     /* Assume success here to prevent recursive requirement. */
     len = strlen(name);