diff options
author | Bjørn Mork <bjorn@mork.no> | 2017-12-18 14:18:14 +0100 |
---|---|---|
committer | Bjørn Mork <bjorn@mork.no> | 2017-12-18 14:18:14 +0100 |
commit | 9eecfce4eb52ae4176ae73136cf1e9e37cd67726 (patch) | |
tree | aa30cc5012f6a01703b8cefe20c2e2d9372adb9b | |
parent | 93d6786124b3c189952599527a922cc9fcbbda55 (diff) |
foo
Signed-off-by: Bjørn Mork <bjorn@mork.no>
-rwxr-xr-x | convert-modeswitch.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/convert-modeswitch.pl b/convert-modeswitch.pl index 8617f9c..4ccfed6 100755 --- a/convert-modeswitch.pl +++ b/convert-modeswitch.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl use strict; -use Data::Dumper; my $msg_ctr = 0; my %messages; @@ -48,10 +47,8 @@ sub add_mode { } sub add_modeval { - warn "=== HERE! ". Dumper(\@_); return unless ($_[1] && $_[1] =~ /^\d+$/); $_[0]->{"Modeval"} = $_[1]; - warn Dumper($_[0]); } my $hex_option = [ undef, \&add_hex ]; @@ -221,6 +218,7 @@ foreach my $devid (sort keys %devices) { dev_opt($cur->{TargetClass}, "t_class", "int", \$sep); dev_opt($cur->{DetachStorageOnly}, "detach_storage", "bool", \$sep); dev_opt($cur->{Mode}, "mode", "string", \$sep); + dev_opt($cur->{Modeval}, "modeval", "string", \$sep); dev_opt($cur->{NoDriverLoading}, "no_driver", "bool", \$sep); dev_opt($cur->{MessageEndpoint}, "msg_endpoint", "int", \$sep); my $msg = [ |