File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/x86_64-linux/B/C/OverLoad/B/METHOP.pm
Back
package # do not index it B::METHOP; use B::C::Std; use B::C::File qw/methopsect/; sub do_save ( $op, @ ) { my $name = $op->name || ''; my $flagspv = $op->flagspv; my $union = $name eq 'method' ? "{.op_first=(OP*)%s}" : "{.op_meth_sv=(SV*)%s}"; methopsect()->comment_for_op("first, rclass"); my ( $ix, $sym ) = methopsect()->reserve( $op, "OP*" ); methopsect()->debug( $name, $flagspv ); my $rclass = $op->rclass->save("op_rclass_sv"); my $first = $name eq 'method' ? $op->first->save("methop first") : $op->meth_sv->save("methop meth_sv"); methopsect()->supdate( $ix, "%s, $union, (SV*)%s", $op->save_baseop, $first, $rclass ); return $sym; } 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.05 |
proxy
|
phpinfo
|
Settings