From: Yang Tse <yangsita@gmail.com>
Date: Thu, 12 Apr 2012 17:13:23 +0000 (+0200)
Subject: OS400/initscript.sh: fix db2_name() module name generation
X-Git-Tag: curl-7_26_0~73
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=e19917296f360159975214bcabbaf1713956c356;p=curl

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 97e978158..d28a8db11 100644
--- 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/'
 }