summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2006-05-18 01:19:51 +0300
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-05-17 19:50:54 +0000
commit5b692037d0e0df6fa15610772065054750efddf4 (patch)
tree360632674cb8d380768322072dddc4826fb6d06a /perlio.c
parentd8d97e7036087008232bf8da77755f2ab9da8b29 (diff)
downloadperl-5b692037d0e0df6fa15610772065054750efddf4.tar.gz
Re: Change 28183 has broken 64-bit builds?
Message-ID: <446B7757.8030301@gmail.com> p4raw-id: //depot/perl@28216
Diffstat (limited to 'perlio.c')
-rw-r--r--perlio.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/perlio.c b/perlio.c
index ad2570e62f..9e06ef1856 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5142,7 +5142,7 @@ vfprintf(FILE *fd, char *pat, char *args)
int
PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap)
{
- dVAR;
+ dTHX;
const int val = my_vsnprintf(s, n > 0 ? n : 0, fmt, ap);
if (n >= 0) {
if (strlen(s) >= (STRLEN) n) {