summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-05-21 19:31:53 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-05-21 19:31:53 +0000
commit55526b1012f0bdd22a72c05b2e16306b17ecf6ef (patch)
tree28c111861ae4330580feb491ff88157e74216db4 /Master/tlpkg/TeXLive/TLWinGoo.pm
parent455a8e9c0b4d9927d212514a5b77bd90cd5b8627 (diff)
Revised PSview filetype, without dosbox. Revised semantics of
register_file_type: the caller should take care of all the gory details. git-svn-id: svn://tug.org/texlive/trunk@8274 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm7
1 files changed, 4 insertions, 3 deletions
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;
}
}