From daa5cf7e73d34b89cbc223d9477f32a77d0b0e9f Mon Sep 17 00:00:00 2001
From: Luigi Calori <l.calori@cineca.it>
Date: Wed, 14 Jun 2017 20:24:01 +0200
Subject: fix intltool_sbang issue #4191 (#4192)
* fix intltool_sbang issue #4191
* add per dep even if already depending on perl-xml-parser
* adding more comment, properly spaced
---
bin/sbang | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
(limited to 'bin/sbang')
diff --git a/bin/sbang b/bin/sbang
index e71074b330..ed54f7dad7 100755
--- a/bin/sbang
+++ b/bin/sbang
@@ -109,13 +109,20 @@ while read line && ((lines < 2)) ; do
fi
lines=$((lines+1))
done < "$script"
+# this is ineeded for scripts with sbang parameter
+# like ones in intltool
+# #!/<spack-long-path>/perl -w
+# this is the interpreter line with all the parameters as a vector
+interpreter_v=(${interpreter})
+# this is the single interpreter path
+interpreter_f="${interpreter_v[0]}"
# Invoke any interpreter found, or raise an error if none was found.
-if [[ -n "$interpreter" ]]; then
- if [[ "${interpreter##*/}" = "perl" ]]; then
- exec $interpreter -x "$@"
+if [[ -n "$interpreter_f" ]]; then
+ if [[ "${interpreter_f##*/}" = "perl" ]]; then
+ exec $interpreter_v -x "$@"
else
- exec $interpreter "$@"
+ exec $interpreter_v "$@"
fi
else
echo "error: sbang found no interpreter in $script"
--
cgit v1.2.3-70-g09d2