From 786171ebb7723a74b841f7c1c1457bd825783a16 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 22 May 2015 22:13:46 +0200
Subject: perl_checker cleanups

---
 lib/MDV/Draklive/Media.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/MDV/Draklive/Media.pm')

diff --git a/lib/MDV/Draklive/Media.pm b/lib/MDV/Draklive/Media.pm
index c891ef0..8487e29 100644
--- a/lib/MDV/Draklive/Media.pm
+++ b/lib/MDV/Draklive/Media.pm
@@ -12,7 +12,7 @@ sub new {
 
     $media->{partitions} ||= [ { mntpoint => '/' } ];
 
-    for $mntpoint (qw(/ OEM_RESCUE)) {
+    foreach my $mntpoint (qw(/ OEM_RESCUE)) {
         my $part = find { $_->{mntpoint} eq $mntpoint } @{$media->{partitions}};
         $part->{fs_type} ||= $media->get_media_setting('fs');
         if (my $label = $mntpoint eq '/' && $media->get_media_label) {
-- 
cgit v1.2.1