| … | |
… | |
| 1874 | our @part_type = qw(gpt mbr raw); |
1874 | our @part_type = qw(gpt mbr raw); |
| 1875 | |
1875 | |
| 1876 | our $NULL_DEVICE = "\x00" x 16; |
1876 | our $NULL_DEVICE = "\x00" x 16; |
| 1877 | |
1877 | |
| 1878 | # biggest bitch to decode, ever |
1878 | # biggest bitch to decode, ever |
| 1879 | # this decoded a device portion after the GUID |
1879 | # this decodes a device portion after the GUID |
| 1880 | sub dec_device_($$); |
1880 | sub dec_device_($$); |
| 1881 | sub dec_device_($$) { |
1881 | sub dec_device_($$) { |
| 1882 | my ($device, $type) = @_; |
1882 | my ($device, $type) = @_; |
| 1883 | |
1883 | |
| 1884 | my $res; |
1884 | my $res; |
