| … | |
… | |
| 19 | # along with this program. If not, see <https://www.gnu.org/licenses/>. |
19 | # along with this program. If not, see <https://www.gnu.org/licenses/>. |
| 20 | # |
20 | # |
| 21 | |
21 | |
| 22 | use 5.016; # numerous features need 5.14, __SUB__ needs 5.16 |
22 | use 5.016; # numerous features need 5.14, __SUB__ needs 5.16 |
| 23 | |
23 | |
| 24 | our $VERSION = '1.4'; |
24 | our $VERSION = '1.5'; |
| 25 | our $JSON_VERSION = 3; # the version of the json objects generated by this program |
25 | our $JSON_VERSION = 3; # the version of the json objects generated by this program |
| 26 | |
26 | |
| 27 | our $CHANGELOG = <<EOF; |
27 | our $CHANGELOG = <<EOF; |
| 28 | |
28 | |
|
|
29 | 1.5 Mon Nov 25 15:54:34 CET 2019 |
| 29 | - add "del" edit instruction. |
30 | - add "del" edit instruction. |
| 30 | - work around lsblk bug sometimes giving "dos" pttype for gpt partitions. |
31 | - work around lsblk bug sometimes giving "dos" pttype for gpt partitions. |
| 31 | - bootmenupolicy in synopsis must be set to 0 to get the text menu. |
32 | - bootmenupolicy in synopsis must be set to 0 to get the text menu. |
| 32 | - minor doc fxes. |
33 | - minor doc fxes. |
|
|
34 | - disable use of perldoc for help, doesn't work well. |
| 33 | |
35 | |
| 34 | 1.4 Thu Aug 22 10:48:22 CEST 2019 |
36 | 1.4 Thu Aug 22 10:48:22 CEST 2019 |
| 35 | - new "create" subcommand. |
37 | - new "create" subcommand. |
| 36 | - "create" and "edit" try to save and restore ownership/permissions |
38 | - "create" and "edit" try to save and restore ownership/permissions |
| 37 | of bcd hives when writing the new file. |
39 | of bcd hives when writing the new file. |
| … | |
… | |
| 2565 | # command line parser |
2567 | # command line parser |
| 2566 | |
2568 | |
| 2567 | our %CMD = ( |
2569 | our %CMD = ( |
| 2568 | help => sub { |
2570 | help => sub { |
| 2569 | require Pod::Usage; |
2571 | require Pod::Usage; |
| 2570 | Pod::Usage::pod2usage (-verbose => 2); |
2572 | Pod::Usage::pod2usage (-verbose => 2, -quotes => "none", -noperldoc => 1); |
| 2571 | }, |
2573 | }, |
| 2572 | |
2574 | |
| 2573 | objects => sub { |
2575 | objects => sub { |
| 2574 | my %rbcd_types = reverse %bcd_types; |
2576 | my %rbcd_types = reverse %bcd_types; |
| 2575 | $_ = sprintf "%08x", $_ for values %rbcd_types; |
2577 | $_ = sprintf "%08x", $_ for values %rbcd_types; |
