diff options
| author | Chip Salzenberg <salzench@nielsenmedia.com> | 1997-08-07 00:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-08-07 00:00:00 +1200 |
| commit | 392e9e906921c3a7f1b3776746e71892a57863d3 (patch) | |
| tree | fadf28f44e13d9041df9a24cc897f7b442ac36ff /XSUB.h | |
| parent | 08e9d68e93f9880dc9a1edcde3abb85026f49784 (diff) | |
| download | perl-392e9e906921c3a7f1b3776746e71892a57863d3.tar.gz | |
Fix double form() in XS version check
p5p-msgid: 199707210518.BAA13771@nielsenmedia.com
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -44,13 +44,15 @@ Sv = ST(1); \ else { \ /* XXX GV_ADDWARN */ \ - Sv = perl_get_sv(vn = form("%s::XS_VERSION", module), FALSE); \ + Sv = perl_get_sv(form("%s::%s", module, \ + vn = "XS_VERSION"), FALSE); \ if (!Sv || !SvOK(Sv)) \ - Sv = perl_get_sv(vn = form("%s::VERSION", module), FALSE); \ + Sv = perl_get_sv(form("%s::%s", module, \ + vn = "VERSION"), FALSE); \ } \ if (Sv && (!SvOK(Sv) || strNE(XS_VERSION, SvPV(Sv, na)))) \ - croak("%s object version %s does not match $%s %_", \ - module, XS_VERSION, vn, Sv); \ + croak("%s object version %s does not match $%s::%s %_", \ + module, XS_VERSION, module, vn, Sv); \ } STMT_END #else # define XS_VERSION_BOOTCHECK |