diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2006-11-27 21:02:20 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-28 14:39:58 +0000 |
| commit | e4006f9d1f2c5dc0644d4ed90e50d01a91624c34 (patch) | |
| tree | 1773b74b4d1f540dc89ab7417e94ae1c4defa796 /ext/Devel | |
| parent | 3f7169a2545864d1d802cc7ff7ab1b6ff3f34828 (diff) | |
| download | perl-e4006f9d1f2c5dc0644d4ed90e50d01a91624c34.tar.gz | |
Re: [PATCH 5.8.8] Build on OS/2
Message-ID: <20061128130220.GA18386@powdermilk.math.berkeley.edu>
p4raw-id: //depot/perl@29405
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 57e0084bd7..ce9ecb03c7 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -187,7 +187,7 @@ dprof_times(pTHX_ struct tms *t) if (!g_frequ) { if (CheckOSError(DosTmrQueryFreq(&g_frequ))) - croak("DosTmrQueryFreq: %s", SvPV(perl_get_sv("!",TRUE),n_a)); + croak("DosTmrQueryFreq: %s", SvPV_nolen(perl_get_sv("!",TRUE))); else g_frequ = g_frequ/DPROF_HZ; /* count per tick */ if (CheckOSError(DosTmrQueryTime(&cnt))) @@ -197,7 +197,7 @@ dprof_times(pTHX_ struct tms *t) } if (CheckOSError(DosTmrQueryTime(&cnt))) - croak("DosTmrQueryTime: %s", SvPV(perl_get_sv("!",TRUE), n_a)); + croak("DosTmrQueryTime: %s", SvPV_nolen(perl_get_sv("!",TRUE))); t->tms_stime = 0; return (t->tms_utime = (toLongLong(cnt) - g_start_cnt)/g_frequ); #else /* !OS2 */ |