Searched refs:PL_oldname (Results 1 – 4 of 4) sorted by relevance
| /mirbsd/src/gnu/usr.bin/perl/ |
| D | doio.c | 767 (void)PerlLIO_chmod(PL_oldname,PL_filemode); in Perl_nextargv()
780 PL_oldname = SvPVx(GvSV(gv), oldlen); in Perl_nextargv()
781 if (do_open(gv,PL_oldname,oldlen,PL_inplace!=0,O_RDONLY,0,Nullfp)) { in Perl_nextargv()
784 if (oldlen == 1 && *PL_oldname == '-') { in Perl_nextargv()
799 PL_oldname ); in Perl_nextargv()
810 sv_catpvn(sv, PL_oldname, oldlen); in Perl_nextargv()
838 if (PerlLIO_rename(PL_oldname,SvPVX_const(sv)) < 0) { in Perl_nextargv()
842 PL_oldname, sv, Strerror(errno) ); in Perl_nextargv()
849 (void)PerlLIO_rename(PL_oldname,SvPVX_const(sv)); in Perl_nextargv()
855 if (link(PL_oldname,SvPVX_const(sv)) < 0) { in Perl_nextargv()
[all …]
|
| D | embedvar.h | 364 #define PL_oldname (PERL_GET_INTERP->Ioldname) macro
689 #define PL_oldname (vTHX->Ioldname) macro
1017 #define PL_Ioldname PL_oldname
|
| D | perlapi.h | 464 #undef PL_oldname
465 #define PL_oldname (*Perl_Ioldname_ptr(aTHX))
|
| D | sv.c | 11214 PL_oldname = proto_perl->Ioldname; /* XXX not quite right */ in perl_clone_using()
|