From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 2 Jun 2003 06:54:05 +0000 (+0000)
Subject: A pointless test, noticed by Craig Berry.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7fc811cca11d30db90c233d254557669191be8d8;p=p5sagit%2Fp5-mst-13.2.git

A pointless test, noticed by Craig Berry.

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

diff --git a/perlio.c b/perlio.c
index 05b53c9..ac9887d 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4817,7 +4817,6 @@ PerlIO_tmpfile(void)
      dTHX;
      PerlIO *f = NULL;
      int fd = -1;
-     SV *sv = Nullsv;
      GV *gv = gv_fetchpv("File::Temp::tempfile", FALSE, SVt_PVCV);
 
      if (!gv) {
@@ -4848,12 +4847,8 @@ PerlIO_tmpfile(void)
 
      if (fd >= 0) {
 	  f = PerlIO_fdopen(fd, "w+");
-	  if (sv) {
-	       if (f)
-		    PerlIOBase(f)->flags |= PERLIO_F_TEMP;
-	       PerlLIO_unlink(SvPVX(sv));
-	       SvREFCNT_dec(sv);
-	  }
+	  if (f)
+	    PerlIOBase(f)->flags |= PERLIO_F_TEMP;
      }
 
      return f;