summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLPostActions.pm7
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm7
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;
}
}