Searched refs:PL_origalen (Results 1 – 6 of 6) sorted by relevance
2936 if (PL_origalen != 1) { in S_set_dollarzero()2956 if (PL_origalen != 1) { in S_set_dollarzero()2963 if (PL_origalen > 1) { in S_set_dollarzero()2967 if (len >= (STRLEN)PL_origalen-1) { in S_set_dollarzero()2970 Copy(s, PL_origargv[0], PL_origalen-1, char); in S_set_dollarzero()2987 pad, PL_origalen - len - 1); in S_set_dollarzero()2989 PL_origargv[0][PL_origalen-1] = 0; in S_set_dollarzero()
211 # define PL_origalen (vTHX->Iorigalen) macro
1789 if (PL_origalen != 0) { in perl_parse()1790 PL_origalen = 1; /* don't use old PL_origalen if perl_parse() is called again */ in perl_parse()1879 PL_origalen = s ? s - PL_origargv[0] + 1 : 0; in perl_parse()
15810 PL_origalen = proto_perl->Iorigalen;
814 PL_origalen = 1; /* don't let $0 assignment update the884 disabled by assigning the value C<1> to the variable C<PL_origalen>887 =for apidoc Amnh||PL_origalen890 when $0 is assigned to if the C<PL_origalen = 1;> assignment is
484 PL_origalen # Z added by devel/scanprov