From e4006f9d1f2c5dc0644d4ed90e50d01a91624c34 Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Mon, 27 Nov 2006 21:02:20 -0800 Subject: [PATCH] Re: [PATCH 5.8.8] Build on OS/2 Message-ID: <20061128130220.GA18386@powdermilk.math.berkeley.edu> p4raw-id: //depot/perl@29405 --- ext/Devel/DProf/DProf.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 57e0084..ce9ecb0 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 */ -- 2.7.4