X-Git-Url: https://git.quassel-irc.org/?p=quassel.git;a=blobdiff_plain;f=icons%2Fimport%2Fimport_theme.pl;fp=icons%2Fimport%2Fimport_theme.pl;h=cea05c8070cd3d8a889cc3dfcc971e8bcfaae748;hp=e835a76ad045a2b516f64cdbde9d1d81cbbcfba5;hb=78f7750301f8234d390bc7d239bc0d2b94fb8ddf;hpb=3c984e549489eddc18dcbf1864e26ef32e3eb586

diff --git a/icons/import/import_theme.pl b/icons/import/import_theme.pl
index e835a76a..cea05c80 100755
--- a/icons/import/import_theme.pl
+++ b/icons/import/import_theme.pl
@@ -14,6 +14,7 @@
 # Run from the icon/ directory.
 
 use strict;
+use warnings;
 use Data::Dumper;
 use File::Find;
 
@@ -131,7 +132,7 @@ closedir BASEDIR;
 if ($scalableFound) {
   foreach my $cat (keys %scalables) {
     system "mkdir -p $themename/scalable/$cat" and die "Could not create category dir\n";
-    foreach my $scalable (keys $scalables{$cat}) {
+    foreach my $scalable (keys %{$scalables{$cat}}) {
       system "cp -aL $themefolder/scalable/$cat/$scalable.svgz $themename/scalable/$cat/$scalable.svgz";
     }
   }
@@ -144,7 +145,7 @@ foreach my $icon (keys %req_icons) {
 }
 
 # Copy license etc.
-system "cp $themefolder/AUTHORS $themefolder/CONTRIBUTING $themefolder/COPYING $themefolder/index.theme $themename/";
+system "cp $themefolder/AUTHORS $themefolder/CONTRIBUTING $themefolder/COPYING* $themefolder/index.theme $themename/";
 
 # Generate .qrc
 my @file_list;