diff options
-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]; } |