Portable perl dirpersiststore because 'tail -r' doesn't work everywhere.
This commit is contained in:
parent
2ff567e162
commit
3add6a2ac4
@ -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…
Reference in New Issue
Block a user