view release on metacpan or  search on metacpan

lib/Linux/Perl/SigSet.pm  view on Meta::CPAN

sub from_list {
    my (@list) = @_;

    my $vec = q<>;

    for my $sig (@list) {
        if ($sig =~ tr<0-9><>c) {

            $sig_num_hr ||= do {
                require Config;
                my @names = split m< >, $Config::Config{'sig_name'};
                my %signum;

                @signum{@names} = split m< >, $Config::Config{'sig_num'};
                \%signum;
            };

            $sig = $sig_num_hr->{$sig} || die "Unrecognized signal: '$sig'";
        }

        vec( $vec, $sig - 1, 1 ) = 1;
    }

    vec( $vec, _SIG_MAX(), 1 ) = 0;

lib/Linux/Perl/uname.pm  view on Meta::CPAN

sub uname {
    my ($class) = @_;

    Call::Context::must_be_list();

    $class = $class->_get_arch_module();

    my $buf = ("\0" x _BUFFER_SIZE);
    Linux::Perl::call( $class->NR_uname(), $buf );

    return split m<\0+>, $buf;
}

1;