1
0
Fork 0

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

pull/4/head
Matt Cable 14 years ago
parent f31b3728db
commit 6fe935d59e

@ -19,9 +19,8 @@ dirpersistinstall () {
fi fi
} }
# FIXME solaris doesn't support tail -r
dirpersiststore () { 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 () { dirpersistrestore () {

Loading…
Cancel
Save