diff options
author | Bjørn Mork <bjorn@mork.no> | 2017-12-18 14:12:47 +0100 |
---|---|---|
committer | Bjørn Mork <bjorn@mork.no> | 2017-12-18 14:12:47 +0100 |
commit | 6b4fc8e1bf075266b9559c2bc7209221e9791ed4 (patch) | |
tree | 80427f8c1c1cc7123f77368f423d946887835b2b | |
parent | 88aab4ce51c07819d15d76750c1fc54aefcd0ea3 (diff) |
foo
Signed-off-by: Bjørn Mork <bjorn@mork.no>
-rwxr-xr-x | convert-modeswitch.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/convert-modeswitch.pl b/convert-modeswitch.pl index eb3b610..ef28a24 100755 --- a/convert-modeswitch.pl +++ b/convert-modeswitch.pl @@ -1,5 +1,6 @@ #!/usr/bin/perl use strict; +use Data::Dumper; my $msg_ctr = 0; my %messages; @@ -47,7 +48,7 @@ sub add_mode { } sub add_modeval { - warn "=== HERE!\n"; + warn "=== HERE!\n". Dumper(\@_); return unless ($_[1] && $_[1] =~ /^\d+$/); $_[0]->{"Modeval"} = $_[1]; } |