diff options
Diffstat (limited to 'perl-install')
| -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 |