#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
elsif ($text_mode eq '1') { $text_mode = 'literal'; }
elsif ($text_mode eq '2') { $text_mode = 'file'; }
elsif ($text_mode eq '3') { $text_mode = 'url'; }
elsif ($text_mode eq '1') { $text_mode = 'literal'; }
elsif ($text_mode eq '2') { $text_mode = 'file'; }
elsif ($text_mode eq '3') { $text_mode = 'url'; }
$v = get_cocoa_pref_1 ($id, "textLiteral");
$text_literal = $v if defined ($v);
$v = get_cocoa_pref_1 ($id, "textLiteral");
$text_literal = $v if defined ($v);
my $sp = # "iMac G5"
`/usr/sbin/system_profiler SPSoftwareDataType SPHardwareDataType`;
my ($v) = ($sp =~ m/^\s*System Version:\s*(.*)$/mi);
my $sp = # "iMac G5"
`/usr/sbin/system_profiler SPSoftwareDataType SPHardwareDataType`;
my ($v) = ($sp =~ m/^\s*System Version:\s*(.*)$/mi);
- my ($s) = ($sp =~ m/^\s*CPU Speed:\s*(.*)$/mi);
- my ($t) = ($sp =~ m/^\s*Machine Name:\s*(.*)$/mi);
+ my ($s) = ($sp =~ m/^\s*(?:CPU|Processor) Speed:\s*(.*)$/mi);
+ my ($t) = ($sp =~ m/^\s*(?:Machine|Model) Name:\s*(.*)$/mi);
# to read a small number of bytes, and continue reading until they
# reached EOF. This is no longer possible.
#
# to read a small number of bytes, and continue reading until they
# reached EOF. This is no longer possible.
#
# awesome properties: 1) Inconvenient; 2) Has no sane workaround;
# 3) Different behavior than MacOS 10.1 through 10.4; and 4)
# Different behavior than every other Unix in the world.
# awesome properties: 1) Inconvenient; 2) Has no sane workaround;
# 3) Different behavior than MacOS 10.1 through 10.4; and 4)
# Different behavior than every other Unix in the world.