This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Hide the VMS error identifier SS$_NOPRIV, as customary.
[perl5.git] / doio.c
diff --git a/doio.c b/doio.c
index c868b29..0eec22c 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1907,7 +1907,7 @@ nothing in the core.
                    tot--;
                else if (S_ISDIR(PL_statbuf.st_mode)) {
                    tot--;
-                   SETERRNO(EISDIR, SS$_NOPRIV);
+                   SETERRNO(EISDIR, SS_NOPRIV);
                }
                else {
                    if (UNLINK(s))