From 73ea4e24fcf8829d802e5db87395759f5e726471 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Wed, 23 Feb 2005 13:38:39 +0000 Subject: XBox support - XFdrake --- perl-install/common.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/common.pm') diff --git a/perl-install/common.pm b/perl-install/common.pm index f6ff2b64e..6a1f48675 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -9,7 +9,7 @@ use vars qw(@ISA @EXPORT $SECTORSIZE); @ISA = qw(Exporter); # no need to export ``_'' -@EXPORT = qw($SECTORSIZE N N_ check_for_xserver files_exist formatTime formatXiB makedev mandrake_release removeXiBSuffix require_root_capability salt setVirtual set_alternative set_permissions translate unmakedev untranslate); +@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_permissions translate unmakedev untranslate); # perl_checker: RE-EXPORT-ALL push @EXPORT, @MDK::Common::EXPORT; @@ -257,6 +257,10 @@ sub check_for_xserver() { return $::xtest; } +sub is_xbox() { + return any { $_->{vendor} . $_->{id} == hex('10de') . hex('02a5') } 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