author | blanchet |
Mon, 30 Aug 2010 12:09:57 +0200 | |
changeset 38898 | a243f8883e8e |
parent 38897 | 92ca38d18af0 |
child 38899 | 55391ee96614 |
--- a/src/HOL/Mirabelle/lib/scripts/mirabelle.pl Mon Aug 30 12:02:51 2010 +0200 +++ b/src/HOL/Mirabelle/lib/scripts/mirabelle.pl Mon Aug 30 12:09:57 2010 +0200 @@ -75,7 +75,7 @@ END -foreach (split(/:/, $actions)) { +foreach (reverse(split(/:/, $actions))) { if (m/([^[]*)(?:\[(.*)\])?/) { my ($name, $settings_str) = ($1, $2 || ""); $name =~ s/^([a-z])/\U$1/;