Change 19655 by [EMAIL PROTECTED] on 2003/06/02 06:54:05
A pointless test, noticed by Craig Berry.
Affected files ...
... //depot/perl/perlio.c#219 edit
Differences ...
==== //depot/perl/perlio.c#219 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#218~19599~ Fri May 23 09:51:18 2003
+++ perl/perlio.c Sun Jun 1 23:54:05 2003
@@ -4817,7 +4817,6 @@
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 @@
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;
End of Patch.
