diff options
| author | Norbert Preining <preining@logic.at> | 2010-05-13 02:09:33 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2010-05-13 02:09:33 +0000 |
| commit | 57bc1d45c213e7bc568a983bf780917fc11b5104 (patch) | |
| tree | 9d864695098fd4410c2783070edc9b22a5b2833f /Master/tlpkg | |
| parent | 05d8944808aeb23ca6c925385cff5e273b522c5c (diff) | |
activate write18 installer options
git-svn-id: svn://tug.org/texlive/trunk@18223 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 8 | ||||
| -rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 6 |
2 files changed, 7 insertions, 7 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 42af1a7a4b2..be2a85e63f7 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -255,10 +255,10 @@ sub run_menu_perltk { $fr->Button(-text => __("Toggle"), -command => sub { toggle_and_set_opt_variable(\$vars{'option_fmt'}, \$fmtyesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); # until more secure ... -# $row++; -# $fr->Label(-text => __('Allow execution of restricted list of programs via \write18'), -anchor => 'w')->grid(-row => $row, -column => 1, -sticky => 'w'); -# $fr->Label(-anchor => 'w', -textvariable => \$restrictedyesno)->grid(-row => $row, -column => 2, -padx => "2m"); -# $fr->Button(-text => __("Toggle"), -command => sub { toggle_and_set_opt_variable(\$vars{'option_write18_restricted'}, \$restrictedyesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); + $row++; + $fr->Label(-text => __('Allow execution of restricted list of programs via \write18'), -anchor => 'w')->grid(-row => $row, -column => 1, -sticky => 'w'); + $fr->Label(-anchor => 'w', -textvariable => \$restrictedyesno)->grid(-row => $row, -column => 2, -padx => "2m"); + $fr->Button(-text => __("Toggle"), -command => sub { toggle_and_set_opt_variable(\$vars{'option_write18_restricted'}, \$restrictedyesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); if ($vars{'doc_splitting_supported'}) { $row++; diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 2f566f53e3d..788bd9ee937 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -829,9 +829,9 @@ EOF return $command{'self'}; # until secure ... -# } elsif ("\u$answer" eq 'E') { -# toggle 'option_write18_restricted'; -# return $command{'self'}; + } elsif ("\u$answer" eq 'E') { + toggle 'option_write18_restricted'; + return $command{'self'}; } elsif ("\u$answer" eq 'S' and !$vars{'from_dvd'}) { toggle 'option_src'; |