Change 29405 by [EMAIL PROTECTED] on 2006/11/28 14:39:58
Subject: Re: [PATCH 5.8.8] Build on OS/2
From: Ilya Zakharevich <[EMAIL PROTECTED]>
Date: Tue, 28 Nov 2006 05:02:20 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Devel/DProf/DProf.xs#44 edit
Differences ...
==== //depot/perl/ext/Devel/DProf/DProf.xs#44 (text) ====
Index: perl/ext/Devel/DProf/DProf.xs
--- perl/ext/Devel/DProf/DProf.xs#43~29165~ 2006-10-30 10:37:41.000000000
-0800
+++ perl/ext/Devel/DProf/DProf.xs 2006-11-28 06:39:58.000000000 -0800
@@ -187,7 +187,7 @@
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 @@
}
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 */
End of Patch.
