system/zsh
system/zsh
1
0
Fork 0
mirror of https://github.com/zsh-users/zsh synced 2024-10-01 13:44:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

Baptiste Daroussin: 27268:

Browse source 
remove Perl dependency from pick-web-browser
This commit is contained in:
Peter Stephenson 2009-09-11 11:26:46 +00:00
parent 49b4a71009
commit dc6ef8c9ae
2 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,5 +1,8 @@
2009-09-11 Peter Stephenson <pws@csr.com>
* Baptiste Daroussin: 27268: Functions/MIME/pick-web-browser:
remove Perl dependency.
* Baptiste Daroussin: 27267 plus 27269 plus doc:
Functions/Zftp/zfrtime, Doc/Zsh/zftpsys.yo: remove perl
dependency.
@ -12152,5 +12155,5 @@
*****************************************************
* This is used by the shell to define $ZSH_PATCHLEVEL
* $Revision: 1.4774 $
* $Revision: 1.4775 $
*****************************************************

13
Functions/MIME/pick-web-browser
View file

@ -74,16 +74,11 @@ for bstyle in $bstyles; do
# Get the name of all windows running; use the internal name, not
# the friendly name, which is less useful.
#
# The nasty but portable version.
# The nice but non-portable version uses Perl, even though perl
# is more portable.
# windows=(${(f)"$(xwininfo -root -all |
# sed -ne 's/.*".*": ("\(.*\)" ".*").*/\1/p' |sort | uniq)"})
windows=(${(f)"$(xwininfo -root -all |
perl -ne '/.*"(.*)": \("(.*)" "(.*)"\).*/ and $w{$2} = 1;
END { print join("\n", keys %w), "\n" }')"})
windows=(${(ou)${(M)${(f)"$(xwininfo -root -all)"}:#*\"*\"\:[[:space:]]\(\"*}/(#b)*\"*\"\:[[:space:]]\(\"(*)\"[[:space:]]\"*\"\)*/$match[1]})
#windows=(${(f)"$(xwininfo -root -all |
# perl -ne '/.*"(.*)": \("(.*)" "(.*)"\).*/ and $w{$2} = 1;
# END { print join("\n", keys %w), "\n" }')"})
# Is any browser we've heard of running?
for browser in $xbrowsers; do