From a163db778ee0de4f9c34b5b9a6cb17b8f41fc9a5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 7 Oct 2012 11:58:39 +0000
Subject: (move_fonts) fix it

---
 perl-install/NEWS                | 1 +
 perl-install/standalone/drakfont | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 162f8abba..fd9efb336 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,6 +1,7 @@
 - drakclock:
   o do not crash if timezones cannot be listed (mga#6787)
 - drakfont:
+  o fix a crash
   o fix ttmkfdir path
 
 Version 14.45 - 20 September 2012
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 03df9aedc..68d7a0d8b 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -308,7 +308,7 @@ sub convert_ttf_fonts {
 sub move_fonts {
     my ($src_dir, $dest_dir, @extensions) = @_;
     my @fonts = map { s!.*/!!; $_ } map { glob("$src_dir/*.$_") } @extensions;
-    next if !@fonts;
+    return if !@fonts;
     system('mv', "$src_dir/$_", $dest_dir) foreach @fonts;
 }
 
-- 
cgit v1.2.1