view release on metacpan or  search on metacpan

bin/sbozyp  view on Meta::CPAN

358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
    my $is_multilib_system = -f '/etc/profile.d/32dev.sh';
    return $is_multilib_system;
}
 
sub arch {
    my $arch = sbozyp_qx('uname -m');
    return $arch;
}
 
sub sbozyp_getopts {
    my $err_prefix = (caller(1))[3] =~ /([^:_]+)_command_main$/ ? "$1: " : '';
    my $getopt_err;
    local $SIG{__WARN__} = sub { chomp($getopt_err = lcfirst $_[0]) };
    GetOptionsFromArray(@_) or sbozyp_die($err_prefix.$getopt_err);
}
 
sub sbozyp_die {
    my ($msg) = @_;
    die "sbozyp: error: $msg\n";
}