Portable perl dirpersiststore because 'tail -r' doesn't work everywhere.

2010-09-26 21:30:57 -06:00 · 2010-09-26 21:30:57 -06:00 · 6fe935d59e
commit 6fe935d59e
parent f31b3728db
1 changed files with 1 additions and 2 deletions
--- a/plugins/dirpersist.plugin.zsh
+++ b/plugins/dirpersist.plugin.zsh
@ -19,9 +19,8 @@ dirpersistinstall () {
    fi
 }

-# FIXME solaris doesn't support tail -r
 dirpersiststore () {
-    dirs -p | tail -r | perl -ne 'chomp;s/([& ])/\\$1/g ;print "if [ -d $_ ]; then pushd -q $_; fi\n"' > $zdirstore
+    dirs -p | perl -e 'foreach (reverse <STDIN>) {chomp;s/([& ])/\\$1/g ;print "if [ -d $_ ]; then pushd -q $_; fi\n"}' > $zdirstore
 }

 dirpersistrestore () {