diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-08 11:00:54 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-08 11:00:54 +0000 |
| commit | 95fad9186c8842cfbbfcf6573db9e0dcadbce69c (patch) | |
| tree | 68fe601b5d6a19d127fb2a0d344abf89b909e6ed /XSUB.h | |
| parent | 555831ceb3ad48ad47fd135f445c0332f0a2af9b (diff) | |
| download | perl-95fad9186c8842cfbbfcf6573db9e0dcadbce69c.tar.gz | |
Eliminate more C<n_a>s
p4raw-id: //depot/perl@24757
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -260,8 +260,8 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. #ifdef XS_VERSION # define XS_VERSION_BOOTCHECK \ STMT_START { \ - SV *_sv; STRLEN n_a; \ - const char *vn = Nullch, *module = SvPV_const(ST(0),n_a); \ + SV *_sv; \ + const char *vn = Nullch, *module = SvPV_nolen_const(ST(0)); \ if (items >= 2) /* version supplied as bootstrap arg */ \ _sv = ST(1); \ else { \ |