diff options
author | Norbert Preining <preining@logic.at> | 2009-06-30 09:19:00 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-06-30 09:19:00 +0000 |
commit | 95b2f3cb996831466d6a63448d4aebe319a1d19e (patch) | |
tree | e9cd2d1d04d1ce627508d8aed39b99ba9d4c9b8d /Master/tlpkg/TeXLive | |
parent | be6be10ec4bfe184594b2d2602f947c9d00ec8cb (diff) |
only convert the cmd of shortcut postaction to w32 if it does not match an URL
git-svn-id: svn://tug.org/texlive/trunk@14014 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index cee4fe62ec0..9b436d00175 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1579,7 +1579,11 @@ sub _do_postaction_shortcut { my $texdir_bsl = conv_to_w32_path($texdir); $icon =~ s!^TEXDIR/!$texdir/!; $cmd =~ s!^TEXDIR/!$texdir/!; - $cmd = conv_to_w32_path($cmd); + # $cmd can be an URL, in which case we do NOT want to convert it to + # w32 paths! + if ($cmd !~ m!^\s*(http://|ftp://)!) { + $cmd = conv_to_w32_path($cmd); + } if ($type eq "menu") { TeXLive::TLWinGoo::add_menu_shortcut( $TeXLive::TLConfig::WindowsMainMenuName, |