OS400/initscript.sh: fix db2_name() module name generation

Allow repeatable file name length reduction on file names with underscore or
dash characters. This is done in order to better support libcurl's existing
source file names and allow OS/400 package to build out of the box again.

diff --git a/packages/OS400/initscript.sh b/packages/OS400/initscript.sh
index 97e978158b817b7c5746782006665ad3b92706f0..d28a8db1198e878497a36cf6c012c06a6613ce38 100644 (file)
--- a/packages/OS400/initscript.sh
+++ b/packages/OS400/initscript.sh
@@ -157,6 +157,10 @@ db2_name()
         basename "${1}"                                                 |
         tr 'a-z-' 'A-Z_'                                                |
         sed -e 's/\..*//'                                               \
+            -e 's/\([^_]\)[^_]*_\(.*\)/\1\2/'                                \
+            -e 's/\([^_]\)\([^_]\)[^_]*_\(.*\)/\1\2\3/'                      \
+            -e 's/\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\)/\1\2\3\4/'            \
+            -e 's/\([^_]\)\([^_]\)\([^_]\)\([^_]\)[^_]*_\(.*\)/\1\2\3\4\5/'  \
             -e 's/^\(..........\).*/\1/'
 }