Make it work with newer Perl, and some other tweaks.
# Run from the icon/ directory.
use strict;
+use warnings;
use Data::Dumper;
use File::Find;
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";
}
}
}
# 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;