summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2005-02-23 13:38:39 +0000
committerStew Benedict <stewb@mandriva.org>2005-02-23 13:38:39 +0000
commit73ea4e24fcf8829d802e5db87395759f5e726471 (patch)
treec639b7a6884ba3165a91640ce4184e83d65c1240 /perl-install/common.pm
parent0920635b65cede09a947647473aa4bbd8dc83a8f (diff)
downloaddrakx-backup-do-not-use-73ea4e24fcf8829d802e5db87395759f5e726471.tar
drakx-backup-do-not-use-73ea4e24fcf8829d802e5db87395759f5e726471.tar.gz
drakx-backup-do-not-use-73ea4e24fcf8829d802e5db87395759f5e726471.tar.bz2
drakx-backup-do-not-use-73ea4e24fcf8829d802e5db87395759f5e726471.tar.xz
drakx-backup-do-not-use-73ea4e24fcf8829d802e5db87395759f5e726471.zip
XBox support - XFdrake
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm6
1 files changed, 5 insertions, 1 deletions
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