diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-01-21 15:03:03 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-01-21 17:09:11 +0000 |
| commit | 64ace3f88f559d007c0150d9b048b1db32380208 (patch) | |
| tree | 042e7da9dbe9f7d2a0291fe3763130f50198e559 /ext/Devel/DProf/DProf.xs | |
| parent | cbfd0a879b2bf2ade4a309e6d56c08ba19f320e1 (diff) | |
| download | perl-64ace3f88f559d007c0150d9b048b1db32380208.tar.gz | |
Update the documentation of get_sv() to note that it calls Perl_gv_fetchpv(),
and hence the 'create' argument is actually 'flags'. Fix core code and
documentation that used TRUE or FALSE to use 0 or GV_ADD.
Diffstat (limited to 'ext/Devel/DProf/DProf.xs')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 469ed22409..dd393b5190 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -194,17 +194,17 @@ dprof_times(pTHX_ struct tms *t) if (!g_frequ) { if (CheckOSError(DosTmrQueryFreq(&g_frequ))) - croak("DosTmrQueryFreq: %s", SvPV_nolen(perl_get_sv("!",TRUE))); + croak("DosTmrQueryFreq: %s", SvPV_nolen(perl_get_sv("!",GV_ADD))); else g_frequ = g_frequ/DPROF_HZ; /* count per tick */ if (CheckOSError(DosTmrQueryTime(&cnt))) croak("DosTmrQueryTime: %s", - SvPV_nolen_const(perl_get_sv("!",TRUE))); + SvPV_nolen_const(perl_get_sv("!",GV_ADD))); g_start_cnt = toLongLong(cnt); } if (CheckOSError(DosTmrQueryTime(&cnt))) - croak("DosTmrQueryTime: %s", SvPV_nolen(perl_get_sv("!",TRUE))); + croak("DosTmrQueryTime: %s", SvPV_nolen(perl_get_sv("!",GV_ADD))); t->tms_stime = 0; return (t->tms_utime = (toLongLong(cnt) - g_start_cnt)/g_frequ); #else /* !OS2 */ @@ -240,13 +240,13 @@ dprof_times(pTHX_ struct tms *t) if (!tv0.tv_sec) if (gettimeofday(&tv0, NULL) < 0) - croak("gettimeofday: %s", SvPV_nolen_const(perl_get_sv("!",TRUE))); + croak("gettimeofday: %s", SvPV_nolen_const(perl_get_sv("!",GV_ADD))); if (getrusage(0, &ru) < 0) - croak("getrusage: %s", SvPV_nolen_const(perl_get_sv("!",TRUE))); + croak("getrusage: %s", SvPV_nolen_const(perl_get_sv("!",GV_ADD))); if (gettimeofday(&tv, NULL) < 0) - croak("gettimeofday: %s", SvPV_nolen_const(perl_get_sv("!",TRUE))); + croak("gettimeofday: %s", SvPV_nolen_const(perl_get_sv("!",GV_ADD))); t->tms_stime = DPROF_HZ * ru.ru_stime.tv_sec + ru.ru_stime.tv_usec; t->tms_utime = DPROF_HZ * ru.ru_utime.tv_sec + ru.ru_utime.tv_usec; |