diff options
| author | Arnaud Patard <rtp@mageia.org> | 2011-03-18 21:33:51 +0000 |
|---|---|---|
| committer | Arnaud Patard <rtp@mageia.org> | 2011-03-18 21:33:51 +0000 |
| commit | d91143bbd32de6eecd6a43d4bed7f2fa4da1e077 (patch) | |
| tree | 98f922eaec29c34912d7d7dbf30803304d04a2cf /perl-install/detect_devices.pm | |
| parent | 2bfae95a970f4c7284a2484fb967bbf9174c2cc6 (diff) | |
| download | drakx-d91143bbd32de6eecd6a43d4bed7f2fa4da1e077.tar drakx-d91143bbd32de6eecd6a43d4bed7f2fa4da1e077.tar.gz drakx-d91143bbd32de6eecd6a43d4bed7f2fa4da1e077.tar.bz2 drakx-d91143bbd32de6eecd6a43d4bed7f2fa4da1e077.tar.xz drakx-d91143bbd32de6eecd6a43d4bed7f2fa4da1e077.zip | |
- import stage1/drakxtools arm support
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index c8995ea82..4894b7781 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -54,7 +54,7 @@ sub floppies { require modules; state @fds; state $legacy_already_detected; - if (arch =~ /mips/) { + if (arch =~ /mips|arm/) { $o_not_detect_legacy_floppies = 1; } if (!$o_not_detect_legacy_floppies && !$legacy_already_detected) { @@ -1179,6 +1179,18 @@ sub is_mips_st_ls2f() { to_bool(cat_('/proc/cpuinfo') =~ /st-ls2f/); } +sub is_arm_openrd_client { + to_bool(cat_('/proc/cpuinfo') =~ /OpenRD Client/); +} + +sub is_arm_versatile { + to_bool(cat_('/proc/cpuinfo') =~ /ARM-Versatile/); +} + +sub is_arm_efikamix { + to_bool(cat_('/proc/cpuinfo') =~ /Efika MX/); +} + sub is_xbox() { any { $_->{vendor} == 0x10de && $_->{id} == 0x02a5 } pci_probe(); } |