_win32_times return value wrong, breaking Devel::DProf

[p5pRT]

Migrated from rt.perl.org#1228 (status was 'resolved')

Searchable as RT1228$

[p5pRT]

From smueller@MICROSOFT.com

perl5.005\win32\win32.c implements an emulation of the non-ANSI but useful
and BSDish 'times' function named win32_times. It's exported from perl.dll
and called by Devel​::DProf. The emulation is incomplete, and the constant
zero return value makes the profiler return bogus information that results
in bogus Total Elapsed Time values in the output of dprofpp.

A simple fix might be to return clock() instead.

While I'm running 5.00502, it appears this bug is still present in both
stable and devel versions (5.005_03 and 5.005_60)

Perl Info

Site configuration information for perl 5.00502:

Summary of my perl5 (5.0 patchlevel 5 subversion 02) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86
    uname=''
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cl.exe', optimize='-O2 -MD -DNDEBUG', gccversion=
    cppflags='-DWIN32'
    ccflags ='-O2 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT
-DHAVE_DES_FCRYPT '
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='link', ldflags ='-nologo -nodefaultlib -release -machine:x86'
    libpth=d:\otools9\lib\x86 
    libs= oldnames.lib kernel32.lib user32.lib gdi32.lib  winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib  oleaut32.lib netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib
msvcrt.lib
    libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release
-machine:x86'

Locally applied patches:
    


@INC for perl 5.00502:
    D:\otools10\lib\perl
    D:\otools10\lib\perl\x86


Environment for perl 5.00502:
    HOME (unset)
    LANG (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
 
PATH=C:\WINNT40\system32;C:\WINNT40;D:\otools10\ohome;D:\otools10\bin\x86;D:
\otools10\bin;D:\Otools10\xl\util;D:\Otools10\Word\tools\bin;D:\otools10\mso
\bin;D:\Otools10\Access\bin;c:\ctools\bin;c:\ctools\binx86;c:\ctools\binb;c:
\dadcw;c:\cw32;c:\ctools\binw;c:\;d:\
    PERL=d:\perl
    PERL_BADLANG (unset)
    SHELL (unset)


stephan();