From 770a49097bbc540b3546f3dab31bdaa660a59231 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 12 Apr 2015 21:23:57 +0200
Subject: fix latest commit

unparsable perl cannot have been tested...
---
 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 ce3a159a3..aa65204ed 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -170,7 +170,7 @@ sub part_prefix {
 
 sub prefix_for_dev {
     my ($dev) = @_;
-    $dev . ($dev =~ /\d$/ 'p' : '');
+    $dev . ($dev =~ /\d$/ ? 'p' : '');
 }
 
 sub should_prefer_UUID {
-- 
cgit v1.2.1