From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 2 Jun 2003 09:28:30 +0000 (+0000)
Subject: Beautification.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3549bba96de364b82f346b5405db53a54cdb8630;p=p5sagit%2Fp5-mst-13.2.git

Beautification.

p4raw-id: //depot/perl@19660
---

diff --git a/op.c b/op.c
index 320ad03..75adb17 100644
--- a/op.c
+++ b/op.c
@@ -6521,22 +6521,28 @@ Perl_my_tmpfp(pTHX)
       *  e.g. miniperl, use mkstemp() or stdio tmpfile() instead. */
 #   if defined(WIN32) || !defined(HAS_MKSTEMP)
      FILE *stdio = PerlSIO_tmpfile();
+
      if (stdio) {
-	  if ((f = PerlIO_push(aTHX_(PerlIO_allocate(aTHX)),
-			       &PerlIO_stdio, "w+", Nullsv))) {
-	       PerlIOStdio *s = PerlIOSelf(f, PerlIOStdio);
-	       s->stdio = stdio;
-	  }
+          if ((f = PerlIO_push(aTHX_(PerlIO_allocate(aTHX)),
+                               &PerlIO_stdio, "w+", Nullsv))) {
+               PerlIOStdio *s = PerlIOSelf(f, PerlIOStdio);
+
+               if (s)
+                    s->stdio = stdio;
+          }
      }
 #   else /* !WIN32 && HAS_MKSTEMP */
      SV *sv = newSVpv("/tmp/PerlIO_XXXXXX", 0);
-     fd = mkstemp(SvPVX(sv));
-     if (fd >= 0) {
-	  f = PerlIO_fdopen(fd, "w+");
-	  if (f) {
-	       PerlLIO_unlink(SvPVX(sv));
-	       SvREFCNT_dec(sv);
-	  }
+
+     if (sv) {
+          fd = mkstemp(SvPVX(sv));
+          if (fd >= 0) {
+               f = PerlIO_fdopen(fd, "w+");
+               if (f) {
+                    PerlLIO_unlink(SvPVX(sv));
+                    SvREFCNT_dec(sv);
+               }
+          }
      }
 #   endif /* WIN32 || !HAS_MKSTEMP */
 #else
@@ -6545,31 +6551,37 @@ Perl_my_tmpfp(pTHX)
      GV *gv = gv_fetchpv("File::Temp::tempfile", FALSE, SVt_PVCV);
 
      if (!gv) {
-	  ENTER;
-	  Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT,
-			   newSVpvn("File::Temp", 10), Nullsv, Nullsv, Nullsv);
-	  gv = gv_fetchpv("File::Temp::tempfile", FALSE, SVt_PVCV);
-	  GvIMPORTED_CV_on(gv);
-	  LEAVE;
+          ENTER;
+          Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT,
+                           newSVpvn("File::Temp", 10), Nullsv, Nullsv, Nullsv);
+          gv = gv_fetchpv("File::Temp::tempfile", FALSE, SVt_PVCV);
+          GvIMPORTED_CV_on(gv);
+          LEAVE;
      }
      if (gv && GvCV(gv)) {
-	  dSP;
-	  ENTER;
-	  SAVETMPS;
-	  PUSHMARK(SP);
-	  PUTBACK;
-	  if (call_sv((SV*)GvCV(gv), G_SCALAR)) {
-	       GV *gv = (GV*)SvRV(newSVsv(*PL_stack_sp--));
-	       IO *io = gv ? GvIO(gv) : 0;
-	       fd = io ? PerlIO_fileno(IoIFP(io)) : -1;
-	  }
-	  SPAGAIN;
-	  PUTBACK;
-	  FREETMPS;
-	  LEAVE;
+          dSP;
+          ENTER;
+          SAVETMPS;
+          PUSHMARK(SP);
+          PUTBACK;
+          if (call_sv((SV*)GvCV(gv), G_SCALAR)) {
+               GV *gv = (GV*)SvRV(newSVsv(*PL_stack_sp--));
+
+               if (gv) {
+                    IO *io = GvIO(gv);
+
+                    if (io) {
+                         fd = PerlIO_fileno(IoIFP(io));
+                         if (fd >= 0)
+                              f = PerlIO_fdopen(fd, "w+");
+                    }
+               }
+          }
+          SPAGAIN;
+          PUTBACK;
+          FREETMPS;
+          LEAVE;
      }
-     if (fd >= 0)
-	  f = PerlIO_fdopen(fd, "w+");
 #endif
 
      return f;