Viewing File: /usr/local/cpanel/3rdparty/perl/536/cpanel-lib/x86_64-linux/B/C/OverLoad/B/LOOP.pm

package B::LOOP;

use B::C::Std;

use B::C::File qw/loopsect/;

sub do_save ( $op, $ = undef ) {

    loopsect()->comment_for_op("first, last, redoop, nextop, lastop");
    my ( $ix, $sym ) = loopsect()->reserve( $op, "OP*" );
    loopsect()->debug( $op->name, $op );

    loopsect()->supdatel(
        $ix,
        '%s' => $op->save_baseop,
        '%s' => $op->first->save,
        '%s' => $op->last->save,
        '%s' => $op->redoop->save,
        '%s' => $op->nextop->save,
        '%s' => $op->lastop->save,
    );

    return $sym;
}

1;