-

modules/bdcom.pm

@@ -191,7 +191,7 @@ async bdcom_purge => sub
 #        say Dumper @tmp;
     }
 
-    my @deleted_onu = map { sprintf("%2d %s", $_[0], $_[1]) } @{$onu_info{inactive}};
+    my @deleted_onu = map { sprintf("%2d %s", $_->[0], $_->[1]) } @{$onu_info{inactive}};
 
     await $t->cmd("exit");
 

modules/cdata.pm

@@ -164,7 +164,7 @@ async cdata_purge => sub
 
     await $t->cmd("exit");
 
-    my @deleted_onu = map { sprintf("%2d %s", $_[0], $_[1]) } @{$onu_info{inactive}};
+    my @deleted_onu = map { sprintf("%2d %s", $_->[0], $_->[1]) } @{$onu_info{inactive}};
 
     %onu_info = await cdata_get_onu_info($t, $tree);