diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-07 12:07:49 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-07 12:07:49 +0000 |
| commit | 4235c0408fde95a5af94021364452d3d00c1e881 (patch) | |
| tree | ae6e4f440a6a7466b242d126a88d0a912b5810df /XSUB.h | |
| parent | 39782eaabbd2e35b3f34463796651b4d05002ac2 (diff) | |
| download | perl-4235c0408fde95a5af94021364452d3d00c1e881.tar.gz | |
XS_VERSION_BOOTCHECK is read only.
p4raw-id: //depot/perl@24724
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -261,7 +261,7 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. # define XS_VERSION_BOOTCHECK \ STMT_START { \ SV *_sv; STRLEN n_a; \ - const char *vn = Nullch, *module = SvPV(ST(0),n_a); \ + const char *vn = Nullch, *module = SvPV_const(ST(0),n_a); \ if (items >= 2) /* version supplied as bootstrap arg */ \ _sv = ST(1); \ else { \ |