From bfafcb7d9cc39562870f95db7960ee5c7685fc15 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 17 May 2015 10:58:26 +0200
Subject: perl_checker fix

---
 perl-install/fs/type.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/fs')

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
-- 
cgit v1.2.1