diff options
| author | Stew Benedict <stewb@mandriva.org> | 2005-02-23 13:38:39 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2005-02-23 13:38:39 +0000 |
| commit | 73ea4e24fcf8829d802e5db87395759f5e726471 (patch) | |
| tree | c639b7a6884ba3165a91640ce4184e83d65c1240 /perl-install/common.pm | |
| parent | 0920635b65cede09a947647473aa4bbd8dc83a8f (diff) | |
| download | drakx-73ea4e24fcf8829d802e5db87395759f5e726471.tar drakx-73ea4e24fcf8829d802e5db87395759f5e726471.tar.gz drakx-73ea4e24fcf8829d802e5db87395759f5e726471.tar.bz2 drakx-73ea4e24fcf8829d802e5db87395759f5e726471.tar.xz drakx-73ea4e24fcf8829d802e5db87395759f5e726471.zip | |
XBox support - XFdrake
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 6 |
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 |