From 02a56eebfda06a5f1064dfeedb0b87ee6f6155c5 Mon Sep 17 00:00:00 2001
From: Martchus <martchus@gmx.net>
Date: Sat, 11 Sep 2021 21:23:29 +0200
Subject: [PATCH] Support Perl 5.18

---
 scripts/yaml2enum.pl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/scripts/yaml2enum.pl b/scripts/yaml2enum.pl
index 776a5d1..8241f68 100755
--- a/scripts/yaml2enum.pl
+++ b/scripts/yaml2enum.pl
@@ -2,8 +2,6 @@
 use strict;
 use warnings;
 use utf8;
-use feature 'signatures';
-no warnings 'experimental::signatures';
 
 # use either YAML::XS or YAML
 my $parse_yaml
@@ -31,9 +29,6 @@ die "No icons present in \"$yaml_file\".\n" unless ref $icons eq 'ARRAY' && @$ic
 open my $enum_output, '>:encoding(UTF-8)', $enum_output_file or die "Can't open output file \"$enum_output_file\": $!\n";
 open my $id_output,   '>:encoding(UTF-8)', $id_output_file   or die "Can't open output file \"$id_output_file\": $!\n";
 
-# define function to camelize IDs
-sub camelize ($s) { $s =~ s/(-)?([\w']+)/\u\L$2/g; $s }
-
 # generate enum values
 for my $icon (@$icons) {
     my $id         = $icon->{id};
@@ -44,7 +39,8 @@ for my $icon (@$icons) {
     die "Icon definition in \"$yaml_file\" is incomplete.\n" unless $id && $name && $unicode;
 
     my $category     = join ',', @$categories;
-    my $camelized_id = camelize $id;
+    my $camelized_id = $id;
+    $camelized_id =~ s/(-)?([\w']+)/\u\L$2/g;
     $camelized_id = "Icon$camelized_id" if $camelized_id =~ qr/^\d+.*/;
     print $enum_output "$camelized_id = 0x$unicode, /**< $id: name: $name, created: $created, category: $category */\n"
         or die "Can't write to file \"$enum_output_file\": $!\n";