cubixle/packages
1
0
Fork 0
mirror of https://github.com/novatiq/packages.git synced 2026-04-30 15:38:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

perl: Switch to split configuration files

Browse Source 
This replaces the previously used collection of configuration files for every single
architecture in conjunction with hacky overrides, which became an increasing burden to maintain.

Fixes a number of outstanding bugs and oddities, with the most important one being the
previously wrong signal order(as shown by ext/POSIX/t/sigaction.t).

See files/perlconfig.pl's POD and files/README.config for details.

Signed-off-by: Marcel Denia <naoir@gmx.net>
This commit is contained in:
Marcel Denia
2015-08-10 05:00:49 +02:00
parent 7d12c8be58
commit afad970139
35 changed files with 1090 additions and 21148 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lang/perl/files/signal.config
+18
View File
@@ -0,0 +1,18 @@
# Signal table helper
(defined($owrt:sigs)) {
sig_name="$owrt:sigs"
(($owrt:libc eq 'glibc') || ($owrt:libc eq 'uclibc')) {
sig_name="$sig_name NUM32 NUM33 RTMIN NUM35 NUM36"
}
($owrt:libc eq 'musl') {
sig_name="$sig_name NUM32 NUM33 NUM34 RTMIN NUM36"
}
sig_name="$sig_name @{[map({qq/NUM\$_/} 37..$owrt:sig_count - 2)]} RTMAX $owrt:sig_name_extra"
sig_num="@{[0..$owrt:sig_count - 1]} $owrt:sig_num_extra "
sig_count="$owrt:sig_count"
sig_size="@{[scalar(split(q/ /, $sig_name))]}"
sig_name_init="@{[join(q/, /, map({qq/\qq\$_\qq/} split(q/ /, $sig_name)))]}, 0"
sig_num_init="@{[join(q/, /, split(q/ /, $sig_num))]}, 0"
}