Skip to content

Commit 5bc7d00

Browse files
committed
Delete dead mktemp() call
Commit 9c12f1e provided support for Cray XT4 Catamount/Qk. It added some code with a call to (insecure) mktemp(), guarded with "#ifdef HAS_MKTEMP". But nothing has ever attempted to define that preprocessor symbol (including the hints file that was added in that commit), so this is clearly unused.
1 parent 95b872d commit 5bc7d00

File tree

1 file changed

+0
-6
lines changed

1 file changed

+0
-6
lines changed

perl.c

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -3921,12 +3921,6 @@ S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript)
39213921
close(tmpfd);
39223922
} else
39233923
Perl_croak(aTHX_ err);
3924-
#else
3925-
# ifdef HAS_MKTEMP
3926-
scriptname = mktemp(tmpname);
3927-
if (!scriptname)
3928-
Perl_croak(aTHX_ err);
3929-
# endif
39303924
#endif
39313925
}
39323926
#endif

0 commit comments

Comments
 (0)