[elpa] 01/01: * update-archive.sh (announce_new): Avoid "eval" and don't assume pkg names don't start with -.

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 995856a19b691c107b806b8103828f9a01ce32b1
Author: Stefan Monnier <address@hidden>
Date:   Thu May 22 10:39:23 2014 -0400

    * update-archive.sh (announce_new): Avoid "eval" and don't assume pkg names
    don't start with -.
---
 admin/update-archive.sh |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/admin/update-archive.sh b/admin/update-archive.sh
index 680298b..de4a0a4 100755
--- a/admin/update-archive.sh
+++ b/admin/update-archive.sh
@@ -50,8 +50,9 @@ signal_error () {
 announce_new () {
     if [ "yes" != "$announce" ]; then return; fi
     pv="$1"
-    eval $(echo "$pv" | sed -e 's/^\(.*\)-\([^-]*\)$/pkg="\1" ver="\2"/')
-    test "$pkg" && test "$ver" || signal_error "bad PKG-VER: $pv"
+    pkg="$(echo "$pv" | sed -e 's/^\(.*\)-\([^-]*\)\.[^-.]*$/\1/')"
+    ver="$(echo "$pv" | sed -e 's/^\(.*\)-\([^-]*\)\.[^-.]*$/\2/')"
+    if [ -z "$pkg" ] || [ -z "$ver" ]; then signal_error "bad PKG-VER: $pv"; fi
     send_mail "$a_email" "[GNU ELPA] $pkg version $ver" <<ENDDOC
 Version $ver of GNU ELPA package $pkg has just been released.
 You can now find it in M-x package-list RET.