Lines Matching defs:PL_origargv
1149 PL_origargv = argv;
1176 if (PL_origargv && PL_origargc >= 1 && (s = PL_origargv[0])) {
1179 if ((PL_origargv[i] == s + 1
1181 || PL_origargv[i] == s + 2
1186 (PL_origargv[i] > s &&
1187 PL_origargv[i] <=
1191 s = PL_origargv[i];
1235 PL_origalen = s - PL_origargv[0];
1313 char **argv = PL_origargv;
2650 usage(PL_origargv[0]);
3165 perl = PL_origargv[0];
3583 for (which = 1; PL_origargv[which] && PL_origargv[which] != scriptname; which++) ;
3584 if (!PL_origargv[which]) {
3587 PL_origargv[which] = savepv(Perl_form(aTHX_ "/dev/fd/%d/%s",
3588 PerlIO_fileno(PL_rsfp), PL_origargv[which]));
3595 (int)PERL_SUBVERSION), PL_origargv);
3712 /* for (which = 1; PL_origargv[which] && PL_origargv[which] != scriptname; which++) ; */
3713 /* if (!PL_origargv[which]) { */
3717 /* PL_origargv[which] = savepv(Perl_form(aTHX_ "/dev/fd/%d/%s", */
3718 /* PerlIO_fileno(PL_rsfp), PL_origargv[which])); */
3725 (int)PERL_SUBVERSION), PL_origargv);/* try again */
4156 S_procself_val(aTHX_ GvSV(tmpgv), PL_origargv[0]);
4161 sv_setpv(GvSV(tmpgv),PL_origargv[0]);