Fix lingering '%S' in XS_VERSION_BOOTCHECK

[perl5.git] / XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 65c33c9..a7987f4 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -49,7 +49,7 @@
                Sv = perl_get_sv(vn = form("%s::VERSION", module), FALSE); \
        }                                                               \
        if (Sv && (!SvOK(Sv) || strNE(XS_VERSION, SvPV(Sv, na))))       \
-           croak("%s object version %s does not match $%s %S",         \
+           croak("%s object version %s does not match $%s %_",         \
                  module, XS_VERSION, vn, Sv);                          \
     } STMT_END
 #else