X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/5315891e4f09097b10632a350ea66a6ba8201bed..995856a19b691c107b806b8103828f9a01ce32b1:/admin/update-archive.sh

diff --git a/admin/update-archive.sh b/admin/update-archive.sh
index 680298b38..de4a0a4de 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.