From ff8a9294dc6f9d1da88ccb7718f696b415a74fd1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 3 Dec 2013 09:40:20 +0100
Subject: recognize partitions on eMMC (mga#11812)

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

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 5162bd602..8ea66bd82 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -212,7 +212,7 @@ sub make($) {
 
 sub simple_partition_scan {
     my ($part) = @_;
-    $part->{device} =~ /((?:[hsv]|xv)d[a-z])(\d+)$/;
+    $part->{device} =~ /((?:[hsv]|xv)d[a-z]|mmcblk\d+p)(\d+)$/;
 }
 sub part_number {
     my ($part) = @_;
-- 
cgit v1.2.1