summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-06-30 09:19:00 +0000
committerNorbert Preining <preining@logic.at>2009-06-30 09:19:00 +0000
commit95b2f3cb996831466d6a63448d4aebe319a1d19e (patch)
treee9cd2d1d04d1ce627508d8aed39b99ba9d4c9b8d /Master/tlpkg
parentbe6be10ec4bfe184594b2d2602f947c9d00ec8cb (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')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm6
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,