mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-09-01 21:51:40 +02:00
Code Releases 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> 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: * Baptiste Daroussin: 27267 plus 27269 plus doc:
Functions/Zftp/zfrtime, Doc/Zsh/zftpsys.yo: remove perl Functions/Zftp/zfrtime, Doc/Zsh/zftpsys.yo: remove perl
dependency. dependency.
@ -12152,5 +12155,5 @@
***************************************************** *****************************************************
* This is used by the shell to define $ZSH_PATCHLEVEL * 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 # Get the name of all windows running; use the internal name, not
# the friendly name, which is less useful. # 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 | windows=(${(ou)${(M)${(f)"$(xwininfo -root -all)"}:#*\"*\"\:[[:space:]]\(\"*}/(#b)*\"*\"\:[[:space:]]\(\"(*)\"[[:space:]]\"*\"\)*/$match[1]})
perl -ne '/.*"(.*)": \("(.*)" "(.*)"\).*/ and $w{$2} = 1; #windows=(${(f)"$(xwininfo -root -all |
END { print join("\n", keys %w), "\n" }')"}) # perl -ne '/.*"(.*)": \("(.*)" "(.*)"\).*/ and $w{$2} = 1;
# END { print join("\n", keys %w), "\n" }')"})
# Is any browser we've heard of running? # Is any browser we've heard of running?
for browser in $xbrowsers; do for browser in $xbrowsers; do