branch: master
commit 25d7c19ad278d39b26940f0dfaaacb2c05d8b94b
Author: Thien-Thi Nguyen <t...@gnu.org>
Commit: Thien-Thi Nguyen <t...@gnu.org>
[admin int] Simplify perl script.
* admin/org-synch.sh (pkgname) [perl script]:
Eliminate sorting pass; don't bother w/ newline in output.
---
admin/org-synch.sh | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/admin/org-synch.sh b/admin/org-synch.sh
index 1bac8d7..130c2c8 100755
--- a/admin/org-synch.sh
+++ b/admin/org-synch.sh
@@ -29,7 +29,7 @@ test -L $0 || { hv=`dirname $0`/hv.sh ; test -r $hv && . $hv
; }
PATH="/bin:/usr/bin:/usr/local/bin:${PATH}"
-pkgname=`wget -q http://orgmode.org/elpa/ -O-|perl -ne 'push @f, $1 if
m/(org-\d{8}\.tar)/; END { @f = sort @f; print "$f[-1]\n"}'`
+pkgname=`wget -q http://orgmode.org/elpa/ -O-|perl -ne '$n = $1 if
(m/(org-\d{8}\.tar)/ && $1 gt $n); END { print "$n" }'`
cd $1
wget -q http://orgmode.org/elpa/${pkgname} -O ${pkgname}-tmp
