diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 7 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 7 |
2 files changed, 10 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 0ee8fed4e20..9cbc3f2da00 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -114,7 +114,12 @@ sub do_install_bin_tlpsv_win32 { ); register_extension(".ps", "PostScript"); register_extension(".eps", "PostScript"); - register_file_type("PostScript", $texdir.'/bin/win32/psv.bat'); + #register_file_type("PostScript", '"'.$texdir.'/bin/win32/psv.bat"'); + register_file_type("PostScript", + '"'.$texdir.'/tlpkg/tlpsv/gswxlua.exe" -g '. + '"'.$texdir.'/tlpkg/tlgs/bin/gsdll32.dll" -l '. + '"'.$texdir.'/tlpkg/tlpsv/psv.wx.lua" -p '. + '"'.$texdir.'/tlpkg/tlpsv/psv_view.ps" -sINPUT="%1"'); update_assocs(); } } diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 7cf27f446b5..4d2c48657c2 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -717,7 +717,8 @@ sub unregister_extension { =item C<register_file_type($file_type, $command)> Add registry entries to associate $file_type with $command. Slashes -are flipped where necessary. +are flipped where necessary. Double quotes should be added by the +caller if necessary. =cut @@ -732,7 +733,7 @@ sub register_file_type { $classes_key = $Registry -> Open("LMachine/Software/Classes/", {Access => KEY_ALL_ACCESS()}) or die "Cannot open classpath"; $k = $classes_key->CreateKey($file_type."/Shell/Open/Command/"); - $k -> {"/"} = '"'.$command.'" "%1" %*'; + $k -> {"/"} = $command; $k -> ArrayValues(0); # delete possibly conflicting values from HKCU/software $classes_key = $Registry -> Open("CUser/Software/Classes/", @@ -743,7 +744,7 @@ sub register_file_type { {Access => KEY_ALL_ACCESS()}); $k = $classes_key->CreateKey($file_type."/Shell/Open/Command/"); $k -> ArrayValues(0); - $k -> {"/"} = '"'.$command.'" "%1" %*'; + $k -> {"/"} = $command; } } |