perl-5.34.0
$EXCEPTIONS_BEING_CAUGHT
$^S

Current state of the interpreter.

�憜����勉�ゃ�潟�帥����ŝ�帥�勛�倶�����腓冴����障�����

        $^S         State
        ---------   -------------------------------------
        undef       Parsing module, eval, or main program
        true (1)    Executing an eval
        false (0)   Otherwise
        $^S         ��倶��
        ---------   -------------------
        undef       ��≪�吾�ャ�若�˨��eval�����<�ゃ�潟����㏍�違�í����勉����若�剛賢
        ��� (1)      eval ��勐��茵�筝
        ��� (0)      �����勌��

The first state may happen in $SIG{__DIE__} and $SIG{__WARN__} handlers.

��������勛�倶����� $SIG{__DIE__} ��� $SIG{__WARN__} ��勉����潟����í�ц儀������ �櫝�醇�с����������障�����

The English name $EXCEPTIONS_BEING_CAUGHT is slightly misleading, because the undef value does not indicate whether exceptions are being caught, since compilation of the main program does not catch exceptions.

��沿����� $EXCEPTIONS_BEING_CAUGHT ��壠�����茯よВ�����������障��; undef ��壚��紊���� ��������������������í��������腓冴����⓾�������������с�壔�ŝ����������с��; ��<�ゃ�潟����㏍�違�í���� ��潟�潟����ゃ�˨�壚��紊���������������障��������

This variable was added in Perl 5.004.

�����勐����違�� Perl 5.004 ��ц申�����������障��������