Server IP : 85.214.239.14 / Your IP : 3.145.84.128 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/3/cwd/proc/3/cwd/usr/share/perl5/Dpkg/ |
Upload File : |
# Copyright © 2002 Adam Heath <doogie@debian.org> # Copyright © 2012-2013 Guillem Jover <guillem@debian.org> # # 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 <https://www.gnu.org/licenses/>. package Dpkg::Exit; use strict; use warnings; our $VERSION = '2.00'; our @EXPORT_OK = qw( push_exit_handler pop_exit_handler run_exit_handlers ); use Exporter qw(import); my @handlers = (); =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; _setup_exit_handlers() if @handlers == 0; push @handlers, $func; } =item pop_exit_handler() Pop the last registered exit handler from the handlers stack. =cut sub pop_exit_handler { _reset_exit_handlers() if @handlers == 1; pop @handlers; } =item run_exit_handlers() Run the registered exit handlers. =cut sub run_exit_handlers { while (my $handler = pop @handlers) { $handler->(); } _reset_exit_handlers(); } sub _exit_handler { run_exit_handlers(); exit(127); } my @SIGNAMES = qw(INT HUP QUIT); my %SIGOLD; sub _setup_exit_handlers { foreach my $signame (@SIGNAMES) { $SIGOLD{$signame} = $SIG{$signame}; $SIG{$signame} = \&_exit_handler; } } sub _reset_exit_handlers { foreach my $signame (@SIGNAMES) { $SIG{$signame} = $SIGOLD{$signame}; } } END { local $?; run_exit_handlers(); } =back =head1 CHANGES =head2 Version 2.00 (dpkg 1.20.0) Hide variable: @handlers. =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;