diff options
| author | Dan Sugalski <dan@sidhe.org> | 1999-08-10 09:34:56 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-10 22:39:11 +0000 |
| commit | d28f7c377ae191ca53d9157f124642cf323614a0 (patch) | |
| tree | 6c1a399c1e250f23c69dd5af823906a52a0e01c7 /ext/Devel | |
| parent | 6da84e39ed5bfdbbe350321e38b2730554d2576c (diff) | |
| download | perl-d28f7c377ae191ca53d9157f124642cf323614a0.tar.gz | |
Patches needed to get _60 building with
To: vmsperl@perl.org, perl5-porters@perl.org,
sarathy@activestate.com, bailey@newman.upenn.edu
threads on VMS
Message-ID: <Pine.LNX.4.10.9908101631030.18266-100000@tuatha.sidhe.org>
p4raw-id: //depot/cfgperl@3955
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 291742123b..e5b7788d30 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -35,6 +35,7 @@ static U32 dprof_ticks; # include <starlet.h> /* prototype for sys$gettim() */ clock_t dprof_times(struct tms *bufptr) { clock_t retval; + dTHX; /* Get wall time and convert to 10 ms intervals to * produce the return value dprof expects */ # if defined(__DECC) && defined (__ALPHA) |