diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-21 10:53:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-21 10:53:56 +0000 |
| commit | 2596d9fe3023e9da9e3e000993c9f26fa30909ef (patch) | |
| tree | 24896940c9bb348b74e34fad515317adb56837ac /ext | |
| parent | 8dfcc1616e57fd4d21ae26bcb2e0c92ae93ab613 (diff) | |
| download | perl-2596d9fe3023e9da9e3e000993c9f26fa30909ef.tar.gz | |
Remove the last STRLEN n_a;s that my compiler can reach.
p4raw-id: //depot/perl@25530
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 3 | ||||
| -rw-r--r-- | ext/Opcode/Opcode.xs | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 057f01e91b..02396e94b6 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -181,7 +181,6 @@ dprof_times(pTHX_ struct tms *t) #ifdef OS2 ULONG rc; QWORD cnt; - STRLEN n_a; if (!g_frequ) { if (CheckOSError(DosTmrQueryFreq(&g_frequ))) @@ -190,7 +189,7 @@ dprof_times(pTHX_ struct tms *t) g_frequ = g_frequ/DPROF_HZ; /* count per tick */ if (CheckOSError(DosTmrQueryTime(&cnt))) croak("DosTmrQueryTime: %s", - SvPV(perl_get_sv("!",TRUE), n_a)); + SvPV_nolen_const(perl_get_sv("!",TRUE))); g_start_cnt = toLongLong(cnt); } diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index b313999a71..8354b48845 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -466,8 +466,7 @@ PPCODE: } else if (SvPOK(bitspec) && SvCUR(bitspec) == (STRLEN)opset_len) { int b, j; - STRLEN n_a; - const char * const bitmap = SvPV(bitspec,n_a); + const char * const bitmap = SvPV_nolen_const(bitspec); int myopcode = 0; for (b=0; b < opset_len; b++) { const U16 bits = bitmap[b]; |