This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Pull the definition of olderrno in sv_2pv_flags into the block where
authorNicholas Clark <nick@ccl4.org>
Sat, 17 Dec 2005 17:40:44 +0000 (17:40 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 17 Dec 2005 17:40:44 +0000 (17:40 +0000)
it's used.

p4raw-id: //depot/perl@26390

sv.c

diff --git a/sv.c b/sv.c
index fbf7ed0..1418cf7 100644 (file)
--- 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;
 Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags)
 {
     register char *s;
-    int olderrno;
 
     if (!sv) {
        if (lp)
 
     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)) {
            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);
        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");
 #ifdef apollo
        if (SvNVX(sv) == 0.0)
            (void)strcpy(s,"0");