From c81271c318db4fc452c901997c383f327c851326 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 17 Dec 2005 17:40:44 +0000 Subject: [PATCH] Pull the definition of olderrno in sv_2pv_flags into the block where it's used. p4raw-id: //depot/perl@26390 --- sv.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sv.c b/sv.c index fbf7ed0..1418cf7 100644 --- a/sv.c +++ b/sv.c @@ -2350,7 +2350,6 @@ char * Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags) { register char *s; - int olderrno; if (!sv) { if (lp) @@ -2509,11 +2508,12 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags) SvIsUV_on(sv); } else if (SvNOKp(sv)) { + const int olderrno = errno; if (SvTYPE(sv) < SVt_PVNV) sv_upgrade(sv, SVt_PVNV); /* The +20 is pure guesswork. Configure test needed. --jhi */ s = SvGROW_mutable(sv, NV_DIG + 20); - olderrno = errno; /* some Xenix systems wipe out errno here */ + /* some Xenix systems wipe out errno here */ #ifdef apollo if (SvNVX(sv) == 0.0) (void)strcpy(s,"0"); -- 1.8.3.1