[Libreoffice-commits] core.git: solenv/bin

[Jan-Marek Glogowski]

 solenv/bin/modules/installer/profiles.pm             |    2 +-
 solenv/bin/modules/installer/windows/createfolder.pm |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

New commits:
commit 32a32d572c91cddc156cd91fbb35f01fd3c56d97
Author: Jan-Marek Glogowski <glogow at fbihome.de>
Date:   Mon Dec 23 15:39:22 2013 +0100

    Fix perl errors in installer modules.
    
    The equivalent of C break is Perl last; guess these are typos.
    
    Change-Id: I1d61d319f2add029434ab5da7d9c01c7e807e8ac
    Reviewed-on: https://gerrit.libreoffice.org/7188
    Reviewed-by: Andras Timar <andras.timar at collabora.com>
    Tested-by: Andras Timar <andras.timar at collabora.com>

diff --git a/solenv/bin/modules/installer/profiles.pm b/solenv/bin/modules/installer/profiles.pm
index 1cc7586..a1a7b45 100644
--- a/solenv/bin/modules/installer/profiles.pm
+++ b/solenv/bin/modules/installer/profiles.pm
@@ -84,7 +84,7 @@ sub add_profile_into_filelist
         if ($file->{'modules'} eq $rootmodulegid)
         {
             $rootfile = $file;
-            break;
+            last;
         }
     }
     if (! defined $rootfile) {
diff --git a/solenv/bin/modules/installer/windows/createfolder.pm b/solenv/bin/modules/installer/windows/createfolder.pm
index 02b29cd..a5c534c 100644
--- a/solenv/bin/modules/installer/windows/createfolder.pm
+++ b/solenv/bin/modules/installer/windows/createfolder.pm
@@ -90,7 +90,7 @@ sub get_createfolder_component
             if ($file->{'modules'} eq $rootmodulegid)
             {
                 $onefile = $file;
-                break;
+                last;
             }
         }
     }