version 1.1, 2015/02/22 19:22:08 |
version 1.2, 2015/02/22 19:31:29 |
|
|
do { local $/ = undef; readline $de }; |
do { local $/ = undef; readline $de }; |
close $de or die $!; |
close $de or die $!; |
|
|
|
# Fall back to a less useful description |
|
unless ($description) { |
|
open my $de, '-|', qw( sysctl -n hw.model ) or die $!; |
|
$description = join ' ', split /\s+/s, |
|
do { local $/ = undef; readline $de }; |
|
close $de or die $!; |
|
} |
|
|
open my $dm, '<', '/var/run/dmesg.boot' or die $!; |
open my $dm, '<', '/var/run/dmesg.boot' or die $!; |
my $dmesg = do { local $/ = undef; readline $dm }; |
my $dmesg = do { local $/ = undef; readline $dm }; |
close $dm; |
close $dm; |