ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/pbcdedit/pbcdedit
(Generate patch)

Comparing pbcdedit/pbcdedit (file contents):
Revision 1.56 by root, Thu Aug 22 08:49:05 2019 UTC vs.
Revision 1.76 by root, Tue Aug 9 11:44:54 2022 UTC

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
22use 5.016; # numerous features need 5.14, __SUB__ needs 5.16 22use 5.016; # numerous features need 5.14, __SUB__ needs 5.16
23 23
24our $VERSION = '1.3'; 24our $VERSION = '1.5';
25our $JSON_VERSION = 3; # the version of the json objects generated by this program 25our $JSON_VERSION = 3; # the version of the json objects generated by this program
26 26
27our $CHANGELOG = <<EOF; 27our $CHANGELOG = <<EOF;
28
291.5 Mon Nov 25 15:54:34 CET 2019
30 - add "del" edit instruction.
31 - work around lsblk bug sometimes giving "dos" pttype for gpt partitions.
32 - bootmenupolicy in synopsis must be set to 0 to get the text menu.
33 - minor doc fxes.
34 - disable use of perldoc for help, doesn't work well.
28 35
291.4 Thu Aug 22 10:48:22 CEST 2019 361.4 Thu Aug 22 10:48:22 CEST 2019
30 - new "create" subcommand. 37 - new "create" subcommand.
31 - "create" and "edit" try to save and restore ownership/permissions 38 - "create" and "edit" try to save and restore ownership/permissions
32 of bcd hives when writing the new file. 39 of bcd hives when writing the new file.
33 - editorial fixes to the documentation. 40 - editorial fixes to the documentation.
41 - add mininmal hive creation example.
34 42
351.3 Sat Aug 17 07:04:15 CEST 2019 431.3 Sat Aug 17 07:04:15 CEST 2019
36 - output of pbcdedit elements --json has changed, as it didn't 44 - output of pbcdedit elements --json has changed, as it didn't
37 take the reorganisation by classes fully into account. 45 take the reorganisation by classes fully into account.
38 - json schema bumped to 3. 46 - json schema bumped to 3.
63 71
64 pbcdedit objects # list all supported object aliases and types 72 pbcdedit objects # list all supported object aliases and types
65 pbcdedit elements # list all supported bcd element aliases 73 pbcdedit elements # list all supported bcd element aliases
66 74
67 # Example: enable text-based boot menu. 75 # Example: enable text-based boot menu.
68 pbcdedit edit /my/BCD set '{default}' bootmenupolicy 1 76 pbcdedit edit /my/BCD set '{default}' bootmenupolicy 0
69 77
70 # Example change system device to first partition containing winload. 78 # Example change system device to first partition containing winload.
71 pbcdedit edit /my/BCD \ 79 pbcdedit edit /my/BCD \
72 set '{default}' device 'locate=<null>,element,path' \ 80 set '{default}' device 'locate=<null>,element,path' \
73 set '{default}' osdevice 'locate=<null>,element,path' 81 set '{default}' osdevice 'locate=<null>,element,path'
305 313
306Note that minimal doesn't mean recommended - Windows itself will add stuff 314Note that minimal doesn't mean recommended - Windows itself will add stuff
307to this during or after boot, and you might or might not run into issues 315to this during or after boot, and you might or might not run into issues
308when installing updates as it might not be able to find the F<bootmgr>. 316when installing updates as it might not be able to find the F<bootmgr>.
309 317
318This is how you would create a minimal hive with PBCDEDIT from within
319GNU/Linux, assuming F</dev/sdc3> is the windows partition, using
320a random GUID for the osloader and using C<partition> instead of
321C<legacypartition>:
322
323 osldr="{$(uuidgen)}"
324 part=$(pbcdedit bcd-device /dev/sdc3)
325 pbcdedit create minimal.bcd \
326 set '{bootmgr}' default "$osldr" \
327 set "$osldr" type application::osloader \
328 set "$osldr" description 'Windows Boot' \
329 set "$osldr" device "$part" \
330 set "$osldr" osdevice "$part" \
331 set "$osldr" path '\Windows\system32\winload.exe' \
332 set "$osldr" systemroot '\Windows'
333
310=head2 The C<meta> key 334=head2 The C<meta> key
311 335
312The C<meta> key is not stored in the BCD data store but is used only 336The C<meta> key is not stored in the BCD data store but is used only
313by PBCDEDIT. It is always generated when exporting, and importing will 337by PBCDEDIT. It is always generated when exporting, and importing will
314be refused when it exists and the version stored inside doesn't store 338be refused when it exists and the version stored inside doesn't match
315the JSON schema version of PBCDEDIT. This ensures that different and 339the JSON schema version of PBCDEDIT. This ensures that different and
316incompatible versions of PBCDEDIT will not read and misinterpret each 340incompatible versions of PBCDEDIT will not read and misinterpret each
317others data. 341others data.
318 342
319=head2 The object keys 343=head2 The object keys
328 352
329Some of these GUIDs are fixed well known GUIDs which PBCDEDIT will decode 353Some of these GUIDs are fixed well known GUIDs which PBCDEDIT will decode
330into human-readable strings such as C<{globalsettings}>, which is the same 354into human-readable strings such as C<{globalsettings}>, which is the same
331as C<{7ea2e1ac-2e61-4728-aaa3-896d9d0a9f0e}>. 355as C<{7ea2e1ac-2e61-4728-aaa3-896d9d0a9f0e}>.
332 356
333Each BCD, object has an associated type. For example, 357Each BCD object has an associated type. For example,
334C<application::osloader> for objects loading Windows via F<winload.exe>, 358C<application::osloader> for objects loading Windows via F<winload.exe>,
335C<application::bootsector> for real mode applications and so on. 359C<application::bootsector> for real mode applications and so on.
336 360
337The type of a object is stored in the pseudo BCD element C<type> (see next 361The type of a object is stored in the pseudo BCD element C<type> (see next
338section). 362section).
489 [{GUID}]type[<flags>][=arg,arg...] 513 [{GUID}]type[<flags>][=arg,arg...]
490 514
491Here are some examples: 515Here are some examples:
492 516
493 boot 517 boot
494 {b097d29f-bc00-11e9-8a9a-525400123456}block=file,<boot>,\\EFI" 518 {b097d29f-bc00-11e9-8a9a-525400123456}block=file,<boot>,\EFI
495 locate=<null>,element,systemroot 519 locate=<null>,element,systemroot
496 partition=<null>,harddisk,mbr,47cbc08a,1048576 520 partition=<null>,harddisk,mbr,47cbc08a,1048576
497 partition=<null>,harddisk,gpt,9742e468-9206-48a0-b4e4-c4e9745a356a,76d39e5f-ad1b-407e-9c05-c81eb83b57dd 521 partition=<null>,harddisk,gpt,9742e468-9206-48a0-b4e4-c4e9745a356a,76d39e5f-ad1b-407e-9c05-c81eb83b57dd
498 block<1>=ramdisk,<partition=<null>,harddisk,mbr,47cbc08a,68720525312>,0,0,0,\Recovery\b097d29e-bc00-11e9-8a9a-525400123456\Winre.wim 522 block<1>=ramdisk,<partition=<null>,harddisk,mbr,47cbc08a,68720525312>,0,0,0,\Recovery\b097d29e-bc00-11e9-8a9a-525400123456\Winre.wim
499 block=file,<partition=<null>,harddisk,gpt,9742e468-9206-48a0-b4e4-c4e9745a356a,ee3a393a-f0de-4057-9946-88584245ed48>,\ 523 block=file,<partition=<null>,harddisk,gpt,9742e468-9206-48a0-b4e4-c4e9745a356a,ee3a393a-f0de-4057-9946-88584245ed48>,\
689 713
690Probably not yet implemented. Tell me of your needs... 714Probably not yet implemented. Tell me of your needs...
691 715
692=back 716=back
693 717
718=back
719
694=head4 Examples 720=head4 Examples
695 721
696This concludes the syntax overview for device elements, but probably 722This concludes the syntax overview for device elements, but probably
697leaves many questions open. I can't help with most of them, as I also have 723leaves many questions open. I can't help with most of them, as I also have
698many questions, but I can walk you through some actual examples using more 724many questions, but I can walk you through some actual examples using more
699complex aspects. 725complex aspects.
726
727=over
700 728
701=item C<< locate=<block=vhd,<block=file,<locate=<null>,path,\disk.vhdx>,\disk.vhdx>>,element,path >> 729=item C<< locate=<block=vhd,<block=file,<locate=<null>,path,\disk.vhdx>,\disk.vhdx>>,element,path >>
702 730
703Just like with C declarations, you best treat device descriptors as 731Just like with C declarations, you best treat device descriptors as
704instructions to find your device and work your way from the inside out: 732instructions to find your device and work your way from the inside out:
776I don't know what the purpose of the C<< <1> >> flag value is, but it 804I don't know what the purpose of the C<< <1> >> flag value is, but it
777seems to be always there on this kind of entry. 805seems to be always there on this kind of entry.
778 806
779If you have some good examples to add here, feel free to mail me. 807If you have some good examples to add here, feel free to mail me.
780 808
809=back
810
781 811
782=head1 EDITING BCD STORES 812=head1 EDITING BCD STORES
783 813
784The C<edit> and C<parse> subcommands allow you to read a BCD data store 814The C<edit> and C<parse> subcommands allow you to read a BCD data store
785and modify it or extract data from it. This is done by executing a series 815and modify it or extract data from it. This is done by executing a series
804 834
805Example: change the bootmgr default too 835Example: change the bootmgr default too
806C<{b097d2ad-bc00-11e9-8a9a-525400123456}>: 836C<{b097d2ad-bc00-11e9-8a9a-525400123456}>:
807 837
808 pbcdedit edit BCD set "{bootmgr}" default "{b097d2ad-bc00-11e9-8a9a-525400123456}" 838 pbcdedit edit BCD set "{bootmgr}" default "{b097d2ad-bc00-11e9-8a9a-525400123456}"
839
840=item C<del> I<object> I<element>
841
842Similar to C<get>, but removed the BCD element from the specified BCD object.
809 843
810=item C<eval> I<perlcode> 844=item C<eval> I<perlcode>
811 845
812This takes the next argument, interprets it as Perl code and 846This takes the next argument, interprets it as Perl code and
813evaluates it. This allows you to do more complicated modifications or 847evaluates it. This allows you to do more complicated modifications or
1149 my ($rname, $root) = $decode_key->($rootcell); 1183 my ($rname, $root) = $decode_key->($rootcell);
1150 1184
1151 [$rname, $root] 1185 [$rname, $root]
1152} 1186}
1153 1187
1154# return a binary windows fILETIME struct 1188# return a binary windows FILETIME struct
1155sub filetime_now { 1189sub filetime_now {
1156 my ($s, $ms) = Time::HiRes::gettimeofday; 1190 my ($s, $ms) = Time::HiRes::gettimeofday;
1157 1191
1158 pack "Q<", $s = ($s * 1_000_000 + $ms) * 10 + 116_444_736_000_000_000 1192 pack "Q<", ($s * 1_000_000 + $ms) * 10
1193 + 116_444_736_000_000_000 # 1970-01-01 00:00:00
1159} 1194}
1160 1195
1161# encode a registry hive 1196# encode a registry hive
1162sub regf_encode($) { 1197sub regf_encode($) {
1163 my ($hive) = @_; 1198 my ($hive) = @_;
1166 1201
1167 # the filetime is apparently used to verify log file validity, 1202 # the filetime is apparently used to verify log file validity,
1168 # so by generating a new timestamp the log files *should* automatically 1203 # so by generating a new timestamp the log files *should* automatically
1169 # become invalidated and windows would "self-heal" them. 1204 # become invalidated and windows would "self-heal" them.
1170 # (update: has been verified by reverse engineering) 1205 # (update: has been verified by reverse engineering)
1171 # possibly the fact that the two sequence numbes match might also 1206 # possibly the fact that the two sequence numbers match might also
1172 # make windows think that the hive is not dirty and ignore logs. 1207 # make windows think that the hive is not dirty and ignore logs.
1173 # (update: has been verified by reverse engineering) 1208 # (update: has been verified by reverse engineering)
1174 1209
1175 my $now = filetime_now; 1210 my $now = filetime_now;
1176 1211
1331} 1366}
1332 1367
1333############################################################################# 1368#############################################################################
1334# bcd stuff 1369# bcd stuff
1335 1370
1336# human-readable alises for GUID object identifiers 1371# human-readable aliases for GUID object identifiers
1337our %bcd_objects = ( 1372our %bcd_objects = (
1338 '{0ce4991b-e6b3-4b16-b23c-5e0d9250e5d9}' => '{emssettings}', 1373 '{0ce4991b-e6b3-4b16-b23c-5e0d9250e5d9}' => '{emssettings}',
1339 '{1afa9c49-16ab-4a5c-4a90-212802da9460}' => '{resumeloadersettings}', 1374 '{1afa9c49-16ab-4a5c-4a90-212802da9460}' => '{resumeloadersettings}',
1340 '{1cae1eb7-a0df-4d4d-9851-4860e34ef535}' => '{default}', 1375 '{1cae1eb7-a0df-4d4d-9851-4860e34ef535}' => '{default}',
1341 '{313e8eed-7098-4586-a9bf-309c61f8d449}' => '{kerneldbgsettings}', 1376 '{313e8eed-7098-4586-a9bf-309c61f8d449}' => '{kerneldbgsettings}',
1471 BCDE_FORMAT_STRING , sub { shift }, 1506 BCDE_FORMAT_STRING , sub { shift },
1472 BCDE_FORMAT_GUID , sub { dec_wguid enc_wguid shift }, 1507 BCDE_FORMAT_GUID , sub { dec_wguid enc_wguid shift },
1473 BCDE_FORMAT_GUID_LIST , sub { join " ", map dec_wguid enc_wguid $_, @{+shift} }, 1508 BCDE_FORMAT_GUID_LIST , sub { join " ", map dec_wguid enc_wguid $_, @{+shift} },
1474 BCDE_FORMAT_INTEGER , sub { unpack "Q", pack "a8", pack "H*", shift }, # integer might be 4 or 8 bytes - caused by ms coding bugs 1509 BCDE_FORMAT_INTEGER , sub { unpack "Q", pack "a8", pack "H*", shift }, # integer might be 4 or 8 bytes - caused by ms coding bugs
1475 BCDE_FORMAT_BOOLEAN , sub { shift eq "00" ? 0 : 1 }, 1510 BCDE_FORMAT_BOOLEAN , sub { shift eq "00" ? 0 : 1 },
1476 BCDE_FORMAT_INTEGER_LIST, sub { join " ", unpack "Q*", pack "H*", shift }, # not sure if this cna be 4 bytes 1511 BCDE_FORMAT_INTEGER_LIST, sub { join " ", unpack "Q*", pack "H*", shift }, # not sure if this can be 4 bytes
1477); 1512);
1478 1513
1479our %bcde_enc = ( 1514our %bcde_enc = (
1480 BCDE_FORMAT_DEVICE , sub { binary => enc_device $_[0], $_[1] }, 1515 BCDE_FORMAT_DEVICE , sub { binary => enc_device $_[0], $_[1] },
1481 BCDE_FORMAT_STRING , sub { sz => shift }, 1516 BCDE_FORMAT_STRING , sub { sz => shift },
1487); 1522);
1488 1523
1489# BCD Elements 1524# BCD Elements
1490our %bcde_byclass = ( 1525our %bcde_byclass = (
1491 any => { 1526 any => {
1492 0x11000001 => 'device', 1527 0x11000001 => 'device',
1493 0x12000002 => 'path', 1528 0x12000002 => 'path',
1494 0x12000004 => 'description', 1529 0x12000004 => 'description',
1495 0x12000005 => 'locale', 1530 0x12000005 => 'locale',
1496 0x14000006 => 'inherit', 1531 0x14000006 => 'inherit',
1497 0x15000007 => 'truncatememory', 1532 0x15000007 => 'truncatememory',
1498 0x14000008 => 'recoverysequence', 1533 0x14000008 => 'recoverysequence',
1499 0x16000009 => 'recoveryenabled', 1534 0x16000009 => 'recoveryenabled',
1500 0x1700000a => 'badmemorylist', 1535 0x1700000a => 'badmemorylist',
1501 0x1600000b => 'badmemoryaccess', 1536 0x1600000b => 'badmemoryaccess',
1502 0x1500000c => 'firstmegabytepolicy', 1537 0x1500000c => 'firstmegabytepolicy',
1503 0x1500000d => 'relocatephysical', 1538 0x1500000d => 'relocatephysical',
1504 0x1500000e => 'avoidlowmemory', 1539 0x1500000e => 'avoidlowmemory',
1505 0x1600000f => 'traditionalkseg', 1540 0x1600000f => 'traditionalkseg',
1506 0x16000010 => 'bootdebug', 1541 0x16000010 => 'bootdebug',
1507 0x15000011 => 'debugtype', 1542 0x15000011 => 'debugtype',
1508 0x15000012 => 'debugaddress', 1543 0x15000012 => 'debugaddress',
1509 0x15000013 => 'debugport', 1544 0x15000013 => 'debugport',
1510 0x15000014 => 'baudrate', 1545 0x15000014 => 'baudrate',
1511 0x15000015 => 'channel', 1546 0x15000015 => 'channel',
1512 0x12000016 => 'targetname', 1547 0x12000016 => 'targetname',
1513 0x16000017 => 'noumex', 1548 0x16000017 => 'noumex',
1514 0x15000018 => 'debugstart', 1549 0x15000018 => 'debugstart',
1515 0x12000019 => 'busparams', 1550 0x12000019 => 'busparams',
1516 0x1500001a => 'hostip', 1551 0x1500001a => 'hostip',
1517 0x1500001b => 'port', 1552 0x1500001b => 'port',
1518 0x1600001c => 'dhcp', 1553 0x1600001c => 'dhcp',
1519 0x1200001d => 'key', 1554 0x1200001d => 'key',
1520 0x1600001e => 'vm', 1555 0x1600001e => 'vm',
1521 0x16000020 => 'bootems', 1556 0x16000020 => 'bootems',
1522 0x15000022 => 'emsport', 1557 0x15000022 => 'emsport',
1523 0x15000023 => 'emsbaudrate', 1558 0x15000023 => 'emsbaudrate',
1524 0x12000030 => 'loadoptions', 1559 0x12000030 => 'loadoptions',
1525 0x16000040 => 'advancedoptions', 1560 0x16000040 => 'advancedoptions',
1526 0x16000041 => 'optionsedit', 1561 0x16000041 => 'optionsedit',
1527 0x15000042 => 'keyringaddress', 1562 0x15000042 => 'keyringaddress',
1528 0x11000043 => 'bootstatdevice', 1563 0x11000043 => 'bootstatdevice',
1529 0x12000044 => 'bootstatfilepath', 1564 0x12000044 => 'bootstatfilepath',
1530 0x16000045 => 'preservebootstat', 1565 0x16000045 => 'preservebootstat',
1531 0x16000046 => 'graphicsmodedisabled', 1566 0x16000046 => 'graphicsmodedisabled',
1532 0x15000047 => 'configaccesspolicy', 1567 0x15000047 => 'configaccesspolicy',
1533 0x16000048 => 'nointegritychecks', 1568 0x16000048 => 'nointegritychecks',
1534 0x16000049 => 'testsigning', 1569 0x16000049 => 'testsigning',
1535 0x1200004a => 'fontpath', 1570 0x1200004a => 'fontpath',
1536 0x1500004b => 'integrityservices', 1571 0x1500004b => 'integrityservices',
1537 0x1500004c => 'volumebandid', 1572 0x1500004c => 'volumebandid',
1538 0x16000050 => 'extendedinput', 1573 0x16000050 => 'extendedinput',
1539 0x15000051 => 'initialconsoleinput', 1574 0x15000051 => 'initialconsoleinput',
1540 0x15000052 => 'graphicsresolution', 1575 0x15000052 => 'graphicsresolution',
1541 0x16000053 => 'restartonfailure', 1576 0x16000053 => 'restartonfailure',
1542 0x16000054 => 'highestmode', 1577 0x16000054 => 'highestmode',
1543 0x16000060 => 'isolatedcontext', 1578 0x16000060 => 'isolatedcontext',
1544 0x15000065 => 'displaymessage', 1579 0x15000065 => 'displaymessage',
1545 0x15000066 => 'displaymessageoverride', 1580 0x15000066 => 'displaymessageoverride',
1546 0x16000068 => 'nobootuxtext', 1581 0x16000068 => 'nobootuxtext',
1547 0x16000069 => 'nobootuxprogress', 1582 0x16000069 => 'nobootuxprogress',
1548 0x1600006a => 'nobootuxfade', 1583 0x1600006a => 'nobootuxfade',
1549 0x1600006b => 'bootuxreservepooldebug', 1584 0x1600006b => 'bootuxreservepooldebug',
1550 0x1600006c => 'bootuxdisabled', 1585 0x1600006c => 'bootuxdisabled',
1551 0x1500006d => 'bootuxfadeframes', 1586 0x1500006d => 'bootuxfadeframes',
1552 0x1600006e => 'bootuxdumpstats', 1587 0x1600006e => 'bootuxdumpstats',
1553 0x1600006f => 'bootuxshowstats', 1588 0x1600006f => 'bootuxshowstats',
1554 0x16000071 => 'multibootsystem', 1589 0x16000071 => 'multibootsystem',
1555 0x16000072 => 'nokeyboard', 1590 0x16000072 => 'nokeyboard',
1556 0x15000073 => 'aliaswindowskey', 1591 0x15000073 => 'aliaswindowskey',
1557 0x16000074 => 'bootshutdowndisabled', 1592 0x16000074 => 'bootshutdowndisabled',
1558 0x15000075 => 'performancefrequency', 1593 0x15000075 => 'performancefrequency',
1559 0x15000076 => 'securebootrawpolicy', 1594 0x15000076 => 'securebootrawpolicy',
1560 0x17000077 => 'allowedinmemorysettings', 1595 0x17000077 => 'allowedinmemorysettings',
1561 0x15000079 => 'bootuxtransitiontime', 1596 0x15000079 => 'bootuxtransitiontime',
1562 0x1600007a => 'mobilegraphics', 1597 0x1600007a => 'mobilegraphics',
1563 0x1600007b => 'forcefipscrypto', 1598 0x1600007b => 'forcefipscrypto',
1564 0x1500007d => 'booterrorux', 1599 0x1500007d => 'booterrorux',
1565 0x1600007e => 'flightsigning', 1600 0x1600007e => 'flightsigning',
1566 0x1500007f => 'measuredbootlogformat', 1601 0x1500007f => 'measuredbootlogformat',
1567 0x15000080 => 'displayrotation', 1602 0x15000080 => 'displayrotation',
1568 0x15000081 => 'logcontrol', 1603 0x15000081 => 'logcontrol',
1569 0x16000082 => 'nofirmwaresync', 1604 0x16000082 => 'nofirmwaresync',
1570 0x11000084 => 'windowssyspart', 1605 0x11000084 => 'windowssyspart',
1571 0x16000087 => 'numlock', 1606 0x16000087 => 'numlock',
1572 0x26000202 => 'skipffumode', 1607 0x26000202 => 'skipffumode',
1573 0x26000203 => 'forceffumode', 1608 0x26000203 => 'forceffumode',
1574 0x25000510 => 'chargethreshold', 1609 0x25000510 => 'chargethreshold',
1575 0x26000512 => 'offmodecharging', 1610 0x26000512 => 'offmodecharging',
1576 0x25000aaa => 'bootflow', 1611 0x25000aaa => 'bootflow',
1577 0x45000001 => 'devicetype', 1612 0x45000001 => 'devicetype',
1578 0x42000002 => 'applicationrelativepath', 1613 0x42000002 => 'applicationrelativepath',
1579 0x42000003 => 'ramdiskdevicerelativepath', 1614 0x42000003 => 'ramdiskdevicerelativepath',
1580 0x46000004 => 'omitosloaderelements', 1615 0x46000004 => 'omitosloaderelements',
1581 0x47000006 => 'elementstomigrate', 1616 0x47000006 => 'elementstomigrate',
1582 0x46000010 => 'recoveryos', 1617 0x46000010 => 'recoveryos',
1583 }, 1618 },
1584 bootapp => { 1619 bootapp => {
1585 0x26000145 => 'enablebootdebugpolicy', 1620 0x26000145 => 'enablebootdebugpolicy',
1586 0x26000146 => 'enablebootorderclean', 1621 0x26000146 => 'enablebootorderclean',
1587 0x26000147 => 'enabledeviceid', 1622 0x26000147 => 'enabledeviceid',
1588 0x26000148 => 'enableffuloader', 1623 0x26000148 => 'enableffuloader',
1589 0x26000149 => 'enableiuloader', 1624 0x26000149 => 'enableiuloader',
1590 0x2600014a => 'enablemassstorage', 1625 0x2600014a => 'enablemassstorage',
1591 0x2600014b => 'enablerpmbprovisioning', 1626 0x2600014b => 'enablerpmbprovisioning',
1592 0x2600014c => 'enablesecurebootpolicy', 1627 0x2600014c => 'enablesecurebootpolicy',
1593 0x2600014d => 'enablestartcharge', 1628 0x2600014d => 'enablestartcharge',
1594 0x2600014e => 'enableresettpm', 1629 0x2600014e => 'enableresettpm',
1595 }, 1630 },
1596 bootmgr => { 1631 bootmgr => {
1597 0x24000001 => 'displayorder', 1632 0x24000001 => 'displayorder',
1598 0x24000002 => 'bootsequence', 1633 0x24000002 => 'bootsequence',
1599 0x23000003 => 'default', 1634 0x23000003 => 'default',
1600 0x25000004 => 'timeout', 1635 0x25000004 => 'timeout',
1601 0x26000005 => 'resume', 1636 0x26000005 => 'resume',
1602 0x23000006 => 'resumeobject', 1637 0x23000006 => 'resumeobject',
1603 0x24000007 => 'startupsequence', 1638 0x24000007 => 'startupsequence',
1604 0x24000010 => 'toolsdisplayorder', 1639 0x24000010 => 'toolsdisplayorder',
1605 0x26000020 => 'displaybootmenu', 1640 0x26000020 => 'displaybootmenu',
1606 0x26000021 => 'noerrordisplay', 1641 0x26000021 => 'noerrordisplay',
1607 0x21000022 => 'bcddevice', 1642 0x21000022 => 'bcddevice',
1608 0x22000023 => 'bcdfilepath', 1643 0x22000023 => 'bcdfilepath',
1609 0x26000024 => 'hormenabled', 1644 0x26000024 => 'hormenabled',
1610 0x26000025 => 'hiberboot', 1645 0x26000025 => 'hiberboot',
1611 0x22000026 => 'passwordoverride', 1646 0x22000026 => 'passwordoverride',
1612 0x22000027 => 'pinpassphraseoverride', 1647 0x22000027 => 'pinpassphraseoverride',
1613 0x26000028 => 'processcustomactionsfirst', 1648 0x26000028 => 'processcustomactionsfirst',
1614 0x27000030 => 'customactions', 1649 0x27000030 => 'customactions',
1615 0x26000031 => 'persistbootsequence', 1650 0x26000031 => 'persistbootsequence',
1616 0x26000032 => 'skipstartupsequence', 1651 0x26000032 => 'skipstartupsequence',
1617 0x22000040 => 'fverecoveryurl', 1652 0x22000040 => 'fverecoveryurl',
1618 0x22000041 => 'fverecoverymessage', 1653 0x22000041 => 'fverecoverymessage',
1619 }, 1654 },
1620 device => { 1655 device => {
1621 0x35000001 => 'ramdiskimageoffset', 1656 0x35000001 => 'ramdiskimageoffset',
1622 0x35000002 => 'ramdisktftpclientport', 1657 0x35000002 => 'ramdisktftpclientport',
1623 0x31000003 => 'ramdisksdidevice', 1658 0x31000003 => 'ramdisksdidevice',
1624 0x32000004 => 'ramdisksdipath', 1659 0x32000004 => 'ramdisksdipath',
1625 0x35000005 => 'ramdiskimagelength', 1660 0x35000005 => 'ramdiskimagelength',
1626 0x36000006 => 'exportascd', 1661 0x36000006 => 'exportascd',
1627 0x35000007 => 'ramdisktftpblocksize', 1662 0x35000007 => 'ramdisktftpblocksize',
1628 0x35000008 => 'ramdisktftpwindowsize', 1663 0x35000008 => 'ramdisktftpwindowsize',
1629 0x36000009 => 'ramdiskmcenabled', 1664 0x36000009 => 'ramdiskmcenabled',
1630 0x3600000a => 'ramdiskmctftpfallback', 1665 0x3600000a => 'ramdiskmctftpfallback',
1631 0x3600000b => 'ramdisktftpvarwindow', 1666 0x3600000b => 'ramdisktftpvarwindow',
1632 }, 1667 },
1633 memdiag => { 1668 memdiag => {
1634 0x25000001 => 'passcount', 1669 0x25000001 => 'passcount',
1635 0x25000002 => 'testmix', 1670 0x25000002 => 'testmix',
1636 0x25000003 => 'failurecount', 1671 0x25000003 => 'failurecount',
1637 0x26000003 => 'cacheenable', 1672 0x26000003 => 'cacheenable',
1638 0x25000004 => 'testtofail', 1673 0x25000004 => 'testtofail',
1639 0x26000004 => 'failuresenabled', 1674 0x26000004 => 'failuresenabled',
1640 0x25000005 => 'stridefailcount', 1675 0x25000005 => 'stridefailcount',
1641 0x26000005 => 'cacheenable', 1676 0x26000005 => 'cacheenable',
1642 0x25000006 => 'invcfailcount', 1677 0x25000006 => 'invcfailcount',
1643 0x25000007 => 'matsfailcount', 1678 0x25000007 => 'matsfailcount',
1644 0x25000008 => 'randfailcount', 1679 0x25000008 => 'randfailcount',
1645 0x25000009 => 'chckrfailcount', 1680 0x25000009 => 'chckrfailcount',
1646 }, 1681 },
1647 ntldr => { 1682 ntldr => {
1648 0x22000001 => 'bpbstring', 1683 0x22000001 => 'bpbstring',
1649 }, 1684 },
1650 osloader => { 1685 osloader => {
1651 0x21000001 => 'osdevice', 1686 0x21000001 => 'osdevice',
1652 0x22000002 => 'systemroot', 1687 0x22000002 => 'systemroot',
1653 0x23000003 => 'resumeobject', 1688 0x23000003 => 'resumeobject',
1654 0x26000004 => 'stampdisks', 1689 0x26000004 => 'stampdisks',
1655 0x26000010 => 'detecthal', 1690 0x26000010 => 'detecthal',
1656 0x22000011 => 'kernel', 1691 0x22000011 => 'kernel',
1657 0x22000012 => 'hal', 1692 0x22000012 => 'hal',
1658 0x22000013 => 'dbgtransport', 1693 0x22000013 => 'dbgtransport',
1659 0x25000020 => 'nx', 1694 0x25000020 => 'nx',
1660 0x25000021 => 'pae', 1695 0x25000021 => 'pae',
1661 0x26000022 => 'winpe', 1696 0x26000022 => 'winpe',
1662 0x26000024 => 'nocrashautoreboot', 1697 0x26000024 => 'nocrashautoreboot',
1663 0x26000025 => 'lastknowngood', 1698 0x26000025 => 'lastknowngood',
1664 0x26000026 => 'oslnointegritychecks', 1699 0x26000026 => 'oslnointegritychecks',
1665 0x26000027 => 'osltestsigning', 1700 0x26000027 => 'osltestsigning',
1666 0x26000030 => 'nolowmem', 1701 0x26000030 => 'nolowmem',
1667 0x25000031 => 'removememory', 1702 0x25000031 => 'removememory',
1668 0x25000032 => 'increaseuserva', 1703 0x25000032 => 'increaseuserva',
1669 0x25000033 => 'perfmem', 1704 0x25000033 => 'perfmem',
1670 0x26000040 => 'vga', 1705 0x26000040 => 'vga',
1671 0x26000041 => 'quietboot', 1706 0x26000041 => 'quietboot',
1672 0x26000042 => 'novesa', 1707 0x26000042 => 'novesa',
1673 0x26000043 => 'novga', 1708 0x26000043 => 'novga',
1674 0x25000050 => 'clustermodeaddressing', 1709 0x25000050 => 'clustermodeaddressing',
1675 0x26000051 => 'usephysicaldestination', 1710 0x26000051 => 'usephysicaldestination',
1676 0x25000052 => 'restrictapiccluster', 1711 0x25000052 => 'restrictapiccluster',
1677 0x22000053 => 'evstore', 1712 0x22000053 => 'evstore',
1678 0x26000054 => 'uselegacyapicmode', 1713 0x26000054 => 'uselegacyapicmode',
1679 0x26000060 => 'onecpu', 1714 0x26000060 => 'onecpu',
1680 0x25000061 => 'numproc', 1715 0x25000061 => 'numproc',
1681 0x26000062 => 'maxproc', 1716 0x26000062 => 'maxproc',
1682 0x25000063 => 'configflags', 1717 0x25000063 => 'configflags',
1683 0x26000064 => 'maxgroup', 1718 0x26000064 => 'maxgroup',
1684 0x26000065 => 'groupaware', 1719 0x26000065 => 'groupaware',
1685 0x25000066 => 'groupsize', 1720 0x25000066 => 'groupsize',
1686 0x26000070 => 'usefirmwarepcisettings', 1721 0x26000070 => 'usefirmwarepcisettings',
1687 0x25000071 => 'msi', 1722 0x25000071 => 'msi',
1688 0x25000072 => 'pciexpress', 1723 0x25000072 => 'pciexpress',
1689 0x25000080 => 'safeboot', 1724 0x25000080 => 'safeboot',
1690 0x26000081 => 'safebootalternateshell', 1725 0x26000081 => 'safebootalternateshell',
1691 0x26000090 => 'bootlog', 1726 0x26000090 => 'bootlog',
1692 0x26000091 => 'sos', 1727 0x26000091 => 'sos',
1693 0x260000a0 => 'debug', 1728 0x260000a0 => 'debug',
1694 0x260000a1 => 'halbreakpoint', 1729 0x260000a1 => 'halbreakpoint',
1695 0x260000a2 => 'useplatformclock', 1730 0x260000a2 => 'useplatformclock',
1696 0x260000a3 => 'forcelegacyplatform', 1731 0x260000a3 => 'forcelegacyplatform',
1697 0x260000a4 => 'useplatformtick', 1732 0x260000a4 => 'useplatformtick',
1698 0x260000a5 => 'disabledynamictick', 1733 0x260000a5 => 'disabledynamictick',
1699 0x250000a6 => 'tscsyncpolicy', 1734 0x250000a6 => 'tscsyncpolicy',
1700 0x260000b0 => 'ems', 1735 0x260000b0 => 'ems',
1701 0x250000c0 => 'forcefailure', 1736 0x250000c0 => 'forcefailure',
1702 0x250000c1 => 'driverloadfailurepolicy', 1737 0x250000c1 => 'driverloadfailurepolicy',
1703 0x250000c2 => 'bootmenupolicy', 1738 0x250000c2 => 'bootmenupolicy',
1704 0x260000c3 => 'onetimeadvancedoptions', 1739 0x260000c3 => 'onetimeadvancedoptions',
1705 0x260000c4 => 'onetimeoptionsedit', 1740 0x260000c4 => 'onetimeoptionsedit',
1706 0x250000e0 => 'bootstatuspolicy', 1741 0x250000e0 => 'bootstatuspolicy',
1707 0x260000e1 => 'disableelamdrivers', 1742 0x260000e1 => 'disableelamdrivers',
1708 0x250000f0 => 'hypervisorlaunchtype', 1743 0x250000f0 => 'hypervisorlaunchtype',
1709 0x220000f1 => 'hypervisorpath', 1744 0x220000f1 => 'hypervisorpath',
1710 0x260000f2 => 'hypervisordebug', 1745 0x260000f2 => 'hypervisordebug',
1711 0x250000f3 => 'hypervisordebugtype', 1746 0x250000f3 => 'hypervisordebugtype',
1712 0x250000f4 => 'hypervisordebugport', 1747 0x250000f4 => 'hypervisordebugport',
1713 0x250000f5 => 'hypervisorbaudrate', 1748 0x250000f5 => 'hypervisorbaudrate',
1714 0x250000f6 => 'hypervisorchannel', 1749 0x250000f6 => 'hypervisorchannel',
1715 0x250000f7 => 'bootux', 1750 0x250000f7 => 'bootux',
1716 0x260000f8 => 'hypervisordisableslat', 1751 0x260000f8 => 'hypervisordisableslat',
1717 0x220000f9 => 'hypervisorbusparams', 1752 0x220000f9 => 'hypervisorbusparams',
1718 0x250000fa => 'hypervisornumproc', 1753 0x250000fa => 'hypervisornumproc',
1719 0x250000fb => 'hypervisorrootprocpernode', 1754 0x250000fb => 'hypervisorrootprocpernode',
1720 0x260000fc => 'hypervisoruselargevtlb', 1755 0x260000fc => 'hypervisoruselargevtlb',
1721 0x250000fd => 'hypervisorhostip', 1756 0x250000fd => 'hypervisorhostip',
1722 0x250000fe => 'hypervisorhostport', 1757 0x250000fe => 'hypervisorhostport',
1723 0x250000ff => 'hypervisordebugpages', 1758 0x250000ff => 'hypervisordebugpages',
1724 0x25000100 => 'tpmbootentropy', 1759 0x25000100 => 'tpmbootentropy',
1725 0x22000110 => 'hypervisorusekey', 1760 0x22000110 => 'hypervisorusekey',
1726 0x22000112 => 'hypervisorproductskutype', 1761 0x22000112 => 'hypervisorproductskutype',
1727 0x25000113 => 'hypervisorrootproc', 1762 0x25000113 => 'hypervisorrootproc',
1728 0x26000114 => 'hypervisordhcp', 1763 0x26000114 => 'hypervisordhcp',
1729 0x25000115 => 'hypervisoriommupolicy', 1764 0x25000115 => 'hypervisoriommupolicy',
1730 0x26000116 => 'hypervisorusevapic', 1765 0x26000116 => 'hypervisorusevapic',
1731 0x22000117 => 'hypervisorloadoptions', 1766 0x22000117 => 'hypervisorloadoptions',
1732 0x25000118 => 'hypervisormsrfilterpolicy', 1767 0x25000118 => 'hypervisormsrfilterpolicy',
1733 0x25000119 => 'hypervisormmionxpolicy', 1768 0x25000119 => 'hypervisormmionxpolicy',
1734 0x2500011a => 'hypervisorschedulertype', 1769 0x2500011a => 'hypervisorschedulertype',
1735 0x25000120 => 'xsavepolicy', 1770 0x25000120 => 'xsavepolicy',
1736 0x25000121 => 'xsaveaddfeature0', 1771 0x25000121 => 'xsaveaddfeature0',
1737 0x25000122 => 'xsaveaddfeature1', 1772 0x25000122 => 'xsaveaddfeature1',
1738 0x25000123 => 'xsaveaddfeature2', 1773 0x25000123 => 'xsaveaddfeature2',
1739 0x25000124 => 'xsaveaddfeature3', 1774 0x25000124 => 'xsaveaddfeature3',
1740 0x25000125 => 'xsaveaddfeature4', 1775 0x25000125 => 'xsaveaddfeature4',
1741 0x25000126 => 'xsaveaddfeature5', 1776 0x25000126 => 'xsaveaddfeature5',
1742 0x25000127 => 'xsaveaddfeature6', 1777 0x25000127 => 'xsaveaddfeature6',
1743 0x25000128 => 'xsaveaddfeature7', 1778 0x25000128 => 'xsaveaddfeature7',
1744 0x25000129 => 'xsaveremovefeature', 1779 0x25000129 => 'xsaveremovefeature',
1745 0x2500012a => 'xsaveprocessorsmask', 1780 0x2500012a => 'xsaveprocessorsmask',
1746 0x2500012b => 'xsavedisable', 1781 0x2500012b => 'xsavedisable',
1747 0x2500012c => 'kerneldebugtype', 1782 0x2500012c => 'kerneldebugtype',
1748 0x2200012d => 'kernelbusparams', 1783 0x2200012d => 'kernelbusparams',
1749 0x2500012e => 'kerneldebugaddress', 1784 0x2500012e => 'kerneldebugaddress',
1750 0x2500012f => 'kerneldebugport', 1785 0x2500012f => 'kerneldebugport',
1751 0x25000130 => 'claimedtpmcounter', 1786 0x25000130 => 'claimedtpmcounter',
1752 0x25000131 => 'kernelchannel', 1787 0x25000131 => 'kernelchannel',
1753 0x22000132 => 'kerneltargetname', 1788 0x22000132 => 'kerneltargetname',
1754 0x25000133 => 'kernelhostip', 1789 0x25000133 => 'kernelhostip',
1755 0x25000134 => 'kernelport', 1790 0x25000134 => 'kernelport',
1756 0x26000135 => 'kerneldhcp', 1791 0x26000135 => 'kerneldhcp',
1757 0x22000136 => 'kernelkey', 1792 0x22000136 => 'kernelkey',
1758 0x22000137 => 'imchivename', 1793 0x22000137 => 'imchivename',
1759 0x21000138 => 'imcdevice', 1794 0x21000138 => 'imcdevice',
1760 0x25000139 => 'kernelbaudrate', 1795 0x25000139 => 'kernelbaudrate',
1761 0x22000140 => 'mfgmode', 1796 0x22000140 => 'mfgmode',
1762 0x26000141 => 'event', 1797 0x26000141 => 'event',
1763 0x25000142 => 'vsmlaunchtype', 1798 0x25000142 => 'vsmlaunchtype',
1764 0x25000144 => 'hypervisorenforcedcodeintegrity', 1799 0x25000144 => 'hypervisorenforcedcodeintegrity',
1765 0x21000150 => 'systemdatadevice', 1800 0x21000150 => 'systemdatadevice',
1766 0x21000151 => 'osarcdevice', 1801 0x21000151 => 'osarcdevice',
1767 0x21000153 => 'osdatadevice', 1802 0x21000153 => 'osdatadevice',
1768 0x21000154 => 'bspdevice', 1803 0x21000154 => 'bspdevice',
1769 0x21000155 => 'bspfilepath', 1804 0x21000155 => 'bspfilepath',
1770 }, 1805 },
1771 resume => { 1806 resume => {
1772 0x21000001 => 'filedevice', 1807 0x21000001 => 'filedevice',
1773 0x22000002 => 'filepath', 1808 0x22000002 => 'filepath',
1774 0x26000003 => 'customsettings', 1809 0x26000003 => 'customsettings',
1775 0x26000004 => 'pae', 1810 0x26000004 => 'pae',
1776 0x21000005 => 'associatedosdevice', 1811 0x21000005 => 'associatedosdevice',
1777 0x26000006 => 'debugoptionenabled', 1812 0x26000006 => 'debugoptionenabled',
1778 0x25000007 => 'bootux', 1813 0x25000007 => 'bootux',
1779 0x25000008 => 'bootmenupolicy', 1814 0x25000008 => 'bootmenupolicy',
1780 0x26000024 => 'hormenabled', 1815 0x26000024 => 'hormenabled',
1781 }, 1816 },
1782 startup => { 1817 startup => {
1783 0x26000001 => 'pxesoftreboot', 1818 0x26000001 => 'pxesoftreboot',
1784 0x22000002 => 'applicationname', 1819 0x22000002 => 'applicationname',
1785 }, 1820 },
1786); 1821);
1787 1822
1788# mask, value => class 1823# mask, value => class
1789our @bcde_typeclass = ( 1824our @bcde_typeclass = (
1853our @part_type = qw(gpt mbr raw); 1888our @part_type = qw(gpt mbr raw);
1854 1889
1855our $NULL_DEVICE = "\x00" x 16; 1890our $NULL_DEVICE = "\x00" x 16;
1856 1891
1857# biggest bitch to decode, ever 1892# biggest bitch to decode, ever
1858# this decoded a device portion after the GUID 1893# this decodes a device portion after the GUID
1859sub dec_device_($$); 1894sub dec_device_($$);
1860sub dec_device_($$) { 1895sub dec_device_($$) {
1861 my ($device, $type) = @_; 1896 my ($device, $type) = @_;
1862 1897
1863 my $res; 1898 my $res;
2447 2482
2448 $object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object; 2483 $object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object;
2449 2484
2450 $bcd->{$object}{$elem} = $value; 2485 $bcd->{$object}{$elem} = $value;
2451 2486
2487 } elsif ($insn eq "del") {
2488 my $object = shift @insns;
2489 my $elem = shift @insns;
2490
2491 $object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object;
2492
2493 delete $bcd->{$object}{$elem};
2494
2452 } elsif ($insn eq "eval") { 2495 } elsif ($insn eq "eval") {
2453 my $perl = shift @insns; 2496 my $perl = shift @insns;
2454 bcd_edit_eval "#line 1 'eval'\n$perl"; 2497 bcd_edit_eval "#line 1 'eval'\n$perl";
2455 2498
2456 } elsif ($insn eq "do") { 2499 } elsif ($insn eq "do") {
2457 my $path = shift @insns; 2500 my $path = shift @insns;
2458 my $file = file_load $path; 2501 my $file = file_load $path;
2459 bcd_edit_eval "#line 1 '$path'\n$file"; 2502 bcd_edit_eval "#line 1 '$path'\n$file";
2460 2503
2461 } else { 2504 } else {
2462 die "$insn: not a recognized instruction for edit/parse\n"; 2505 die "$insn: not a recognized instruction for create/edit/parse\n";
2463 } 2506 }
2464 } 2507 }
2465 2508
2466} 2509}
2467 2510
2483sub lsblk() { 2526sub lsblk() {
2484 my $lsblk = $json_coder->decode (scalar qx<lsblk --json -o PATH,KNAME,MAJ:MIN,TYPE,PTTYPE,PTUUID,PARTUUID,LABEL,FSTYPE>); 2527 my $lsblk = $json_coder->decode (scalar qx<lsblk --json -o PATH,KNAME,MAJ:MIN,TYPE,PTTYPE,PTUUID,PARTUUID,LABEL,FSTYPE>);
2485 2528
2486 for my $dev (@{ $lsblk->{blockdevices} }) { 2529 for my $dev (@{ $lsblk->{blockdevices} }) {
2487 if ($dev->{type} eq "part") { 2530 if ($dev->{type} eq "part") {
2531
2532 # lsblk sometimes gives a bogus pttype, so we recreate it here
2533 $dev->{pttype} = $dev->{ptuuid} =~ /^$RE_GUID\z/
2534 ? "gpt" : "dos";
2535
2488 if ($dev->{pttype} eq "gpt") { 2536 if ($dev->{pttype} eq "gpt") {
2489 $dev->{bcd_device} = "partition=<null>,harddisk,gpt,$dev->{ptuuid},$dev->{partuuid}"; 2537 $dev->{bcd_device} = "partition=<null>,harddisk,gpt,$dev->{ptuuid},$dev->{partuuid}";
2490 } elsif ($dev->{pttype} eq "dos") { # why not "mbr" :( 2538 } elsif ($dev->{pttype} eq "dos") { # why not "mbr" :(
2491 if ($dev->{partuuid} =~ /^([0-9a-f]{8})-([0-9a-f]{2})\z/i) { 2539 if ($dev->{partuuid} =~ /^([0-9a-f]{8})-([0-9a-f]{2})\z/i) {
2492 my ($diskid, $partno) = ($1, hex $2); 2540 my ($diskid, $partno) = ($1, hex $2);
2505 2553
2506sub prdev($$) { 2554sub prdev($$) {
2507 my ($path, $attribute) = @_; 2555 my ($path, $attribute) = @_;
2508 2556
2509 # rather than stat'ing and guessing how devices are encoded, we use lsblk for this 2557 # rather than stat'ing and guessing how devices are encoded, we use lsblk for this
2510 # unfortunately, there doesn't seem to be a way to restrict lsblk to just oned evice,
2511 # so we always assume the first one is it.
2512 my $mm = $json_coder->decode (scalar qx<lsblk -o MAJ:MIN -J \Q$path\E>)->{blockdevices}[0]{"maj:min"}; 2558 my $mm = $json_coder->decode (scalar qx<lsblk -d -o MAJ:MIN -J \Q$path\E>)->{blockdevices}[0]{"maj:min"};
2513 2559
2514 my $lsblk = lsblk; 2560 my $lsblk = lsblk;
2515 2561
2516 for my $dev (@$lsblk) { 2562 for my $dev (@$lsblk) {
2517 if ($dev->{"maj:min"} eq $mm && $dev->{$attribute}) { 2563 if ($dev->{"maj:min"} eq $mm && $dev->{$attribute}) {
2527# command line parser 2573# command line parser
2528 2574
2529our %CMD = ( 2575our %CMD = (
2530 help => sub { 2576 help => sub {
2531 require Pod::Usage; 2577 require Pod::Usage;
2532 Pod::Usage::pod2usage (-verbose => 2); 2578 Pod::Usage::pod2usage (-verbose => 2, -quotes => "none", -noperldoc => 1);
2533 }, 2579 },
2534 2580
2535 objects => sub { 2581 objects => sub {
2536 my %rbcd_types = reverse %bcd_types; 2582 my %rbcd_types = reverse %bcd_types;
2537 $_ = sprintf "%08x", $_ for values %rbcd_types; 2583 $_ = sprintf "%08x", $_ for values %rbcd_types;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines