From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 28 Nov 2006 05:02:20 +0000 (-0800)
Subject: Re: [PATCH 5.8.8] Build on OS/2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4006f9d1f2c5dc0644d4ed90e50d01a91624c34;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH 5.8.8] Build on OS/2
Message-ID: <20061128130220.GA18386@powdermilk.math.berkeley.edu>

p4raw-id: //depot/perl@29405
---

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 */