diff options
Diffstat (limited to 'convert-modeswitch.pl')
-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 = [ |