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

Comparing pbcdedit/pbcdedit (file contents):
Revision 1.66 by root, Sun Sep 1 15:55:44 2019 UTC vs.
Revision 1.67 by root, Sun Sep 1 15:56:08 2019 UTC

… …
1492 BCDE_FORMAT_STRING , sub { shift }, 1492 BCDE_FORMAT_STRING , sub { shift },
1493 BCDE_FORMAT_GUID , sub { dec_wguid enc_wguid shift }, 1493 BCDE_FORMAT_GUID , sub { dec_wguid enc_wguid shift },
1494 BCDE_FORMAT_GUID_LIST , sub { join " ", map dec_wguid enc_wguid $_, @{+shift} }, 1494 BCDE_FORMAT_GUID_LIST , sub { join " ", map dec_wguid enc_wguid $_, @{+shift} },
1495 BCDE_FORMAT_INTEGER , sub { unpack "Q", pack "a8", pack "H*", shift }, # integer might be 4 or 8 bytes - caused by ms coding bugs 1495 BCDE_FORMAT_INTEGER , sub { unpack "Q", pack "a8", pack "H*", shift }, # integer might be 4 or 8 bytes - caused by ms coding bugs
1496 BCDE_FORMAT_BOOLEAN , sub { shift eq "00" ? 0 : 1 }, 1496 BCDE_FORMAT_BOOLEAN , sub { shift eq "00" ? 0 : 1 },
1497 BCDE_FORMAT_INTEGER_LIST, sub { join " ", unpack "Q*", pack "H*", shift }, # not sure if this cna be 4 bytes 1497 BCDE_FORMAT_INTEGER_LIST, sub { join " ", unpack "Q*", pack "H*", shift }, # not sure if this can be 4 bytes
1498); 1498);
1499 1499
1500our %bcde_enc = ( 1500our %bcde_enc = (
1501 BCDE_FORMAT_DEVICE , sub { binary => enc_device $_[0], $_[1] }, 1501 BCDE_FORMAT_DEVICE , sub { binary => enc_device $_[0], $_[1] },
1502 BCDE_FORMAT_STRING , sub { sz => shift }, 1502 BCDE_FORMAT_STRING , sub { sz => shift },

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines