From de256332547f0205cab9bdb9edc39cd21fbf6743 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 8 Aug 2005 03:23:35 +0000 Subject: move is_xbox from common to detect_devices --- perl-install/common.pm | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'perl-install/common.pm') 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 -- cgit v1.2.1