s/SCM_CREDENTIALSS/SCM_CREDENTIAL/

p4raw-id: //depot/cfgperl@2417

diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index 1c541d7..0bd6e59 100644 (file)
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -602,7 +602,7 @@ constant(char *name, int arg)
 #endif
        if (strEQ(name, "SCM_CREDENTIALS"))
 #ifdef SCM_CREDENTIALS
-           return SCM_CREDENTIALSS;
+           return SCM_CREDENTIALS;
 #else
            goto not_there;
 #endif