From 9eecfce4eb52ae4176ae73136cf1e9e37cd67726 Mon Sep 17 00:00:00 2001 From: Bjørn Mork Date: Mon, 18 Dec 2017 14:18:14 +0100 Subject: foo MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Bjørn Mork --- convert-modeswitch.pl | 4 +--- 1 file changed, 1 insertion(+), 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 = [ -- cgit v1.2.3