Lines Matching defs:sv
637 SV *sv;
640 sv = *av_fetch(PL_fdpid,fd,TRUE);
641 (void)SvUPGRADE(sv, SVt_IV);
642 pid = SvIVX(sv);
643 SvIVX(sv) = 0;
644 sv = *av_fetch(PL_fdpid,savefd,TRUE);
645 (void)SvUPGRADE(sv, SVt_IV);
646 SvIVX(sv) = pid;
712 register SV *sv;
746 sv = av_shift(GvAV(gv));
747 SAVEFREESV(sv);
748 sv_setsv(GvSV(gv),sv);
777 sv_setpvn(sv, "", 0);
779 sv_catpvn(sv, begin, star - begin);
780 sv_catpvn(sv, PL_oldname, oldlen);
784 sv_catpv(sv,begin);
787 sv_catpv(sv,PL_inplace);
790 if ((PerlLIO_stat(SvPVX(sv),&PL_statbuf) >= 0
801 sv);
808 if (PerlLIO_rename(PL_oldname,SvPVX(sv)) < 0) {
812 PL_oldname, sv, Strerror(errno) );
818 (void)PerlLIO_unlink(SvPVX(sv));
819 (void)PerlLIO_rename(PL_oldname,SvPVX(sv));
820 do_open(gv,SvPVX(sv),SvCUR(sv),PL_inplace!=0,O_RDONLY,0,Nullfp);
823 (void)UNLINK(SvPVX(sv));
824 if (link(PL_oldname,SvPVX(sv)) < 0) {
828 PL_oldname, sv, Strerror(errno) );
852 sv_setpvn(sv,">",!PL_inplace);
853 sv_catpvn(sv,PL_oldname,oldlen);
856 if (!do_open(PL_argvoutgv,SvPVX(sv),SvCUR(sv),PL_inplace!=0,
859 if (!do_open(PL_argvoutgv,SvPVX(sv),SvCUR(sv),PL_inplace!=0,
927 Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv)
962 sv_setsv(sv,&PL_sv_yes);
966 sv_setsv(sv,&PL_sv_undef);
1257 Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
1263 if (!sv)
1266 if (SvGMAGICAL(sv))
1267 mg_get(sv);
1268 if (SvIOK(sv) && SvIVX(sv) != 0) {
1269 PerlIO_printf(fp, PL_ofmt, (NV)SvIVX(sv));
1272 if ( (SvNOK(sv) && SvNVX(sv) != 0.0)
1273 || (looks_like_number(sv) && sv_2nv(sv) != 0.0) ) {
1274 PerlIO_printf(fp, PL_ofmt, SvNVX(sv));
1278 switch (SvTYPE(sv)) {
1284 if (SvIOK(sv)) {
1285 if (SvGMAGICAL(sv))
1286 mg_get(sv);
1287 if (SvIsUV(sv))
1288 PerlIO_printf(fp, "%"UVuf, (UV)SvUVX(sv));
1290 PerlIO_printf(fp, "%"IVdf, (IV)SvIVX(sv));
1296 if (!SvUTF8(sv))
1297 sv_utf8_upgrade_flags(sv = sv_mortalcopy(sv),
1300 else if (DO_UTF8(sv)) {
1301 if (!sv_utf8_downgrade((sv = sv_mortalcopy(sv)), TRUE)
1307 tmps = SvPV(sv, len);
1350 SV* sv = POPs;
1354 if (SvTYPE(sv) == SVt_PVGV) {
1355 gv = (GV*)sv;
1358 else if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVGV) {
1359 gv = (GV*)SvRV(sv);
1363 s = SvPV(sv, len);
1379 SV *sv;
1397 sv = POPs;
1399 if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVGV && ckWARN(WARN_IO)) {
1401 GvENAME((GV*) SvRV(sv)));
1404 sv_setpv(PL_statname,SvPV(sv, n_a));
1405 PL_laststatval = PerlLIO_lstat(SvPV(sv, n_a),&PL_statcache);
1406 if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, n_a), '\n'))