diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1997-01-28 23:10:07 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-29 18:11:00 +1200 |
| commit | 255c1af795e05405858a49f2959b3eb083883987 (patch) | |
| tree | 206ad6e0cad884d107d0f67e12933b366cdd9140 | |
| parent | bab462559b9df592ecbca9af26b07b60bf026c40 (diff) | |
| download | perl-255c1af795e05405858a49f2959b3eb083883987.tar.gz | |
Version checking in XS bootstrap is optional
| -rw-r--r-- | XSUB.h | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -50,10 +50,7 @@ Sv = perl_get_sv(vn, FALSE); /* XXX GV_ADDWARN */ \ } \ } \ - if (!Sv || !SvOK(Sv)) \ - croak("%s object can't find $%s::XS_VERSION or $%s::VERSION", \ - module, module, module); \ - else if (strNE(XS_VERSION, SvPV(Sv, na))) \ + if (Sv && (!SvOK(Sv) || strNE(XS_VERSION, SvPV(Sv, na)))) \ croak("%s object version %s does not match $%s %s", \ module, XS_VERSION, vn, SvPV(Sv, na)); \ } STMT_END |