�PNG  IHDR��;���IDATx��ܻn�0���K�� �)(�pA��� ���7�LeG{�� �§㻢|��ذaÆ 6lذaÆ 6lذaÆ 6lom��$^�y���ذag�5bÆ 6lذaÆ 6lذa{���� 6lذaÆ �`����}H�Fkm�,�m����Ӫ���ô�ô!� �x�|'ܢ˟;�E:���9�&ᶒ�}�{�v]�n&�6� �h��_��t�ڠ͵-ҫ���Z;��Z$�.�P���k�ž)�!��o���>}l�eQfJ�T��u і���چ��\��X=8��Rن4`Vw�l�>����n�G�^��i�s��"ms�$�u��i��?w�bs[m�6�K4���O���.�4��%����/����b�C%��t ��M�ז� �-l�G6�mrz2���s�%�9��s@���-�k�9�=���)������k�B5����\��+͂�Zsٲ ��Rn��~G���R���C����� �wIcI��n7jJ���hۛNCS|���j0��8y�iHKֶۛ�k�Ɉ+;Sz������L/��F�*\��Ԕ�#"5��m�2��[S��������=�g��n�a�P�e�ғ�L�� lذaÆ 6l�^k��̱aÆ 6lذaÆ 6lذa;���� �_��ذaÆ 6lذaÆ 6lذaÆ ���R���IEND�B` # Copyright © 2002 Adam Heath # Copyright © 2012-2013 Guillem Jover # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . package Dpkg::Exit; use strict; use warnings; our $VERSION = '1.01'; our @EXPORT_OK = qw( push_exit_handler pop_exit_handler run_exit_handlers ); use Exporter qw(import); # XXX: Backwards compatibility, stop exporting on VERSION 2.00. ## no critic (Variables::ProhibitPackageVars) our @handlers = (); ## use critic =encoding utf8 =head1 NAME Dpkg::Exit - program exit handlers =head1 DESCRIPTION The Dpkg::Exit module provides support functions to run handlers on exit. =head1 FUNCTIONS =over 4 =item push_exit_handler($func) Register a code reference into the exit function handlers stack. =cut sub push_exit_handler { my ($func) = shift; push @handlers, $func; } =item pop_exit_handler() Pop the last registered exit handler from the handlers stack. =cut sub pop_exit_handler { pop @handlers; } =item run_exit_handlers() Run the registered exit handlers. =cut sub run_exit_handlers { $_->() foreach (reverse @handlers); } sub _exit_handler { run_exit_handlers(); exit(127); } $SIG{INT} = \&_exit_handler; $SIG{HUP} = \&_exit_handler; $SIG{QUIT} = \&_exit_handler; =back =head1 CHANGES =head2 Version 1.01 (dpkg 1.17.2) New functions: push_exit_handler(), pop_exit_handler(), run_exit_handlers() Deprecated variable: @handlers =head2 Version 1.00 (dpkg 1.15.6) Mark the module as public. =cut 1;