view release on metacpan or  search on metacpan

Switch.xs  view on Meta::CPAN

		PL_op = Perl_pp_ftsvtx(aTHX); break;
	    case OP_FTTTY:
		PL_op = Perl_pp_fttty(aTHX); break;
	    case OP_FTTEXT:
		PL_op = Perl_pp_fttext(aTHX); break;
	    case OP_FTBINARY:
		PL_op = Perl_pp_ftbinary(aTHX); break;
	    case OP_CHDIR:
		PL_op = Perl_pp_chdir(aTHX); break;
	    case OP_CHOWN:
		PL_op = Perl_pp_chown(aTHX); break;
	    case OP_CHROOT:
		PL_op = Perl_pp_chroot(aTHX); break;
	    case OP_UNLINK:
		PL_op = Perl_pp_unlink(aTHX); break;
	    case OP_CHMOD:
		PL_op = Perl_pp_chmod(aTHX); break;
	    case OP_UTIME:
		PL_op = Perl_pp_utime(aTHX); break;
	    case OP_RENAME:
		PL_op = Perl_pp_rename(aTHX); break;