summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBjørn Mork <bjorn@mork.no>2017-12-18 14:18:14 +0100
committerBjørn Mork <bjorn@mork.no>2017-12-18 14:18:14 +0100
commit9eecfce4eb52ae4176ae73136cf1e9e37cd67726 (patch)
treeaa30cc5012f6a01703b8cefe20c2e2d9372adb9b
parent93d6786124b3c189952599527a922cc9fcbbda55 (diff)
foo
Signed-off-by: Bjørn Mork <bjorn@mork.no>
-rwxr-xr-xconvert-modeswitch.pl4
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 = [