Fix lingering '%S' in XS_VERSION_BOOTCHECK
authorChip Salzenberg <chip@perl.com>
Wed, 23 Apr 1997 14:27:36 +0000 (02:27 +1200)
committerChip Salzenberg <chip@atlantic.net>
Sat, 26 Apr 1997 12:00:00 +0000 (00:00 +1200)
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