Lines Matching defs:orig_pv

1636 S_dir_unchanged(pTHX_ const char *orig_pv, MAGIC *mg) {
1649     if (!PERL_FILE_IS_ABSOLUTE(orig_pv)
1655                    orig_pv, "Current directory has changed");
1663     if (!PERL_FILE_IS_ABSOLUTE(orig_pv)
1666                    orig_pv,
1700         const char *orig_pv;
1712         orig_pv = SvPVX(*orig_psv);
1721             (void)PerlLIO_chmod(orig_pv, mode);
1742             if (!dir_unchanged(orig_pv, mg))
1749                     linkat(dfd, orig_pv, dfd, SvPVX(*back_psv), 0) < 0 &&
1751                       dir_unchanged(orig_pv, mg) &&
1752                                link(orig_pv, SvPVX(*back_psv)) == 0)
1754                     link(orig_pv, SvPVX(*back_psv)) < 0
1762                         S_my_renameat(dfd, orig_pv, dfd, SvPVX(*back_psv)) < 0 &&
1764                           dir_unchanged(orig_pv, mg) &&
1765                           PerlLIO_rename(orig_pv, SvPVX(*back_psv)) == 0)
1767                         PerlLIO_rename(orig_pv, SvPVX(*back_psv)) < 0
1774                                 dir_unchanged(orig_pv, mg))
1787                     if (link(orig_pv, SvPVX(*back_psv))) {
1796                     (void)UNLINK(orig_pv);
1802                 UNLINK(orig_pv);
1807                 link(SvPVX(*temp_psv), orig_pv) < 0
1809                 S_my_renameat(dfd, SvPVX(*temp_psv), dfd, orig_pv) < 0 &&
1811                   dir_unchanged(orig_pv, mg) &&
1812                   PerlLIO_rename(SvPVX(*temp_psv), orig_pv) == 0)
1814                 PerlLIO_rename(SvPVX(*temp_psv), orig_pv) < 0
1827                                orig_pv, SvPVX(*temp_psv), orig_pv, Strerror(errno));