[ViewVC] Diff of: cvs/pbcdedit/pbcdedit

Comparing pbcdedit/pbcdedit (file contents):
Revision 1.70 by root, Sun Sep 8 16:50:39 2019 UTC vs.
Revision 1.71 by root, Sun Sep 15 01:12:18 2019 UTC

 our $VERSION = '1.4';
 our $JSON_VERSION = 3; # the version of the json objects generated by this program
 our $CHANGELOG = <<EOF;
+        - add "del" edit instruction.
 	- work around lsblk bug sometimes giving "dos" pttype for gpt partitions.
         - bootmenupolicy in synopsis must be set to 0 for text menu.
         - minor doc fxes.
 1.4  Thu Aug 22 10:48:22 CEST 2019
 Example: change the bootmgr default too
 C<{b097d2ad-bc00-11e9-8a9a-525400123456}>:
    pbcdedit edit BCD set "{bootmgr}" default "{b097d2ad-bc00-11e9-8a9a-525400123456}"
+=item C<del> I<object> I<element>
+Similar to C<get>, but removed the BCD element from the specified BCD object.
 =item C<eval> I<perlcode>
 This takes the next argument, interprets it as Perl code and
 evaluates it. This allows you to do more complicated modifications or
          $object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object;
          $bcd->{$object}{$elem} = $value;
+      } elsif ($insn eq "del") {
+         my $object = shift @insns;
+         my $elem   = shift @insns;
+         $object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object;
+         delete $bcd->{$object}{$elem};
       } elsif ($insn eq "eval") {
          my $perl = shift @insns;
          bcd_edit_eval "#line 1 'eval'\n$perl";
       } elsif ($insn eq "do") {

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