aboutsummaryrefslogtreecommitdiffstats
path: root/meta-networking/recipes-extended/mime-construct/files/Signal.pm
diff options
context:
space:
mode:
Diffstat (limited to 'meta-networking/recipes-extended/mime-construct/files/Signal.pm')
-rw-r--r--meta-networking/recipes-extended/mime-construct/files/Signal.pm132
1 files changed, 0 insertions, 132 deletions
diff --git a/meta-networking/recipes-extended/mime-construct/files/Signal.pm b/meta-networking/recipes-extended/mime-construct/files/Signal.pm
deleted file mode 100644
index 9280e88681..0000000000
--- a/meta-networking/recipes-extended/mime-construct/files/Signal.pm
+++ /dev/null
@@ -1,132 +0,0 @@
-# $Id: Signal.pm,v 1.4 1998-10-27 16:16:13-05 roderick Exp $
-#
-# Copyright (c) 1997 Roderick Schertler. All rights reserved. This
-# program is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-
-package IPC::Signal;
-
-use 5.003_94; # __PACKAGE__
-use strict;
-use vars qw($VERSION @ISA @EXPORT_OK $AUTOLOAD %Sig_num @Sig_name);
-
-require Exporter;
-
-$VERSION = '1.00';
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(sig_num sig_name sig_translate_setup %Sig_num @Sig_name);
-%Sig_num = ();
-@Sig_name = ();
-
-sub sig_num ($);
-sub sig_name ($);
-
-sub sig_translate_setup () {
- return if %Sig_num && @Sig_name;
-
- require Config;
-
- # In 5.005 the sig_num entries are comma separated and there's a
- # trailing 0.
- my $num = $Config::Config{'sig_num'};
- if ($num =~ s/,//g) {
- $num =~ s/\s+0$//;
- }
-
- my @name = split ' ', $Config::Config{'sig_name'};
- my @num = split ' ', $num;
-
- @name or die 'No signals defined';
- @name == @num or die 'Signal name/number mismatch';
-
- @Sig_num{@name} = @num;
- keys %Sig_num == @name or die 'Duplicate signal names present';
- for (@name) {
- $Sig_name[$Sig_num{$_}] = $_
- unless defined $Sig_name[$Sig_num{$_}];
- }
-}
-
-# This autoload routine just is just for sig_num() and sig_name(). It
-# calls sig_translate_setup() and then snaps the real function definitions
-# into place.
-
-sub AUTOLOAD {
- if ($AUTOLOAD ne __PACKAGE__ . '::sig_num'
- && $AUTOLOAD ne __PACKAGE__ . '::sig_name') {
- require Carp;
- Carp::croak("Undefined subroutine &$AUTOLOAD called");
- }
- sig_translate_setup;
- *sig_num = sub ($) { $Sig_num{$_[0]} };
- *sig_name = sub ($) { $Sig_name[$_[0]] };
- goto &$AUTOLOAD;
-}
-
-1
-
-__END__
-
-=head1 NAME
-
-IPC::Signal - Utility functions dealing with signals
-
-=head1 SYNOPSIS
-
- $number = sig_num $name;
- $name = sig_name $number;
-
- sig_translate_setup;
- $number = $Sig_num{$name};
- $name = $Sig_name[$number];
-
-=head1 DESCRIPTION
-
-This module contains utility functions for dealing with signals.
-
-Nothing is exported by default.
-
-=over
-
-=item B<sig_num> I<chopped-signal-name>
-
-Returns the signal number of the signal whose name (sans C<SIG>) is
-I<chopped-signal-name>, or undef if there is no such signal.
-
-This function is prototyped to take a single scalar argument.
-
-=item B<sig_name> I<signal-number>
-
-Returns the chopped signal name (like C<HUP>) of signal number
-I<signal-number>, or undef if there is no such signal.
-
-This function is prototyped to take a single scalar argument.
-
-=item B<sig_translate_setup>
-
-If you want to use the @Sig_name and %Sig_num variables directly you must
-call B<sig_translate_setup> to initialize them. This isn't necessary if
-you only use the function interfaces sig_name() and sig_num().
-
-This function is prototyped to take no arguments.
-
-=item B<%Sig_num>
-
-A hash with chopped signal name keys (like C<HUP>) and integer signal
-number values.
-
-=item B<@Sig_name>
-
-An array mapping signal numbers to chopped signal names (like C<HUP>).
-
-=back
-
-=head1 AUTHOR
-
-Roderick Schertler <F<roderick@argon.org>>
-
-=head1 SEE ALSO
-
-perl(1).
-
-=cut