summaryrefslogtreecommitdiffstats
path: root/perl-install/fs/type.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fs/type.pm')
-rw-r--r--perl-install/fs/type.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index 5b9cc8804..264b89964 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -303,6 +303,7 @@ sub isApple { $_[0]{pt_type} == 0x401 && defined $_[0]{isDriver} }
sub isAppleBootstrap { $_[0]{pt_type} == 0x401 && defined $_[0]{isBoot} }
sub isRecovery {
isFat_or_NTFS($_[0]) && ($_[0]{type_name} =~ /^Hidden/ ||
+ $_->{pt_type} == 0x12 || # "Compaq diagnostics"
member($_[0]{device_LABEL} ,
# Extracted from /usr/share/hal/fdi/policy/10osvendor/20-storage-methods.fdi
# Hopefuly we'll ask to hal/udev someday