diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-17 10:58:26 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-17 11:09:01 +0200 |
| commit | bfafcb7d9cc39562870f95db7960ee5c7685fc15 (patch) | |
| tree | e1659297ae92b848b1ff38b59d1fdbd85c9eb7c6 /perl-install | |
| parent | 13f145e0c0d4bd134eafbe2d307daf2b58df1a51 (diff) | |
| download | drakx-bfafcb7d9cc39562870f95db7960ee5c7685fc15.tar drakx-bfafcb7d9cc39562870f95db7960ee5c7685fc15.tar.gz drakx-bfafcb7d9cc39562870f95db7960ee5c7685fc15.tar.bz2 drakx-bfafcb7d9cc39562870f95db7960ee5c7685fc15.tar.xz drakx-bfafcb7d9cc39562870f95db7960ee5c7685fc15.zip | |
perl_checker fix
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs/type.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index e1df877cd..30bf01d78 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -304,7 +304,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" + $_[0]{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 |