Print linenumbers in /ctrlact list output

Signed-off-by: martin f. krafft <redacted>

diff --git a/scripts/ctrlact.pl b/scripts/ctrlact.pl
index 35e2cd71115e8e99c67f619b90d7775263be17ce..6a48773f4f7aee46e0f371d0e45d3b7590dfd795 100644 (file)
--- a/scripts/ctrlact.pl
+++ b/scripts/ctrlact.pl
@@ -225,8 +225,8 @@ sub get_mappings_table {
        my (@arr) = @_;
        my @ret = ();
        for (my $i = 0; $i < @arr; $i++) {
-               push @ret, sprintf("%4d: %-10s %-40s %-10s",
-                       $i, $arr[$i]->[0], $arr[$i]->[1], $arr[$i]->[2]);
+               push @ret, sprintf("%4d: %-10s %-40s %-10s (line: %3d)",
+                       $i, $arr[$i]->[0], $arr[$i]->[1], $arr[$i]->[2], $arr[$i]->[3]);
        }
        return join("\n", @ret);
 }