diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-08-08 03:23:35 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-08-08 03:23:35 +0000 |
| commit | de256332547f0205cab9bdb9edc39cd21fbf6743 (patch) | |
| tree | 3915ccc7fad177cab20109a362acd8098a294564 /perl-install/common.pm | |
| parent | 25561fbd793df35e756318c529b0cc379cbd050b (diff) | |
| download | drakx-de256332547f0205cab9bdb9edc39cd21fbf6743.tar drakx-de256332547f0205cab9bdb9edc39cd21fbf6743.tar.gz drakx-de256332547f0205cab9bdb9edc39cd21fbf6743.tar.bz2 drakx-de256332547f0205cab9bdb9edc39cd21fbf6743.tar.xz drakx-de256332547f0205cab9bdb9edc39cd21fbf6743.zip | |
move is_xbox from common to detect_devices
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 3ce56f91f..cd2442db5 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -9,7 +9,7 @@ use run_program; use Exporter; our @ISA = qw(Exporter); -our @EXPORT = qw($SECTORSIZE N N_ check_for_xserver files_exist formatTime formatXiB is_xbox makedev mandrake_release removeXiBSuffix require_root_capability salt setVirtual set_alternative set_l10n_sort set_permissions translate unmakedev); +our @EXPORT = qw($SECTORSIZE N N_ check_for_xserver files_exist formatTime formatXiB makedev mandrake_release removeXiBSuffix require_root_capability salt setVirtual set_alternative set_l10n_sort set_permissions translate unmakedev); # perl_checker: RE-EXPORT-ALL push @EXPORT, @MDK::Common::EXPORT; @@ -270,11 +270,6 @@ sub check_for_xserver() { return $::xtest; } -sub is_xbox() { - require detect_devices; - any { $_->{vendor} == 0x10de && $_->{id} == 0x02a5 } detect_devices::pci_probe(); -} - #- special unpack #- - returning an array refs for each element like "s10" #- - handling things like s10* at the end of the format |