diff options
author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-22 10:55:57 +0200 |
---|---|---|
committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-22 10:56:10 +0200 |
commit | 9164a2f4775bc759563981582a61c99a96a89b3d (patch) | |
tree | b0329842e072fa2a068091f55d6d24b37412e531 /bin | |
parent | a8eb30553b5ce27ce9217bb90dca773cf1d30bf8 (diff) |
restore -Om (replaces ->info with ->hints)
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/efa-m | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -224,12 +224,12 @@ sub display_result { for my $line (@lines) { - if ( $edata{messages} and length( $line->[5] ) ) { - $line->[5] =~ tr{\n\x0d}{ }s; - chomp $line->[5]; + if ( $edata{messages} and $line->[5] and @{ $line->[5] } ) { print "\n"; - for my $info_line ( split( qr{\n}, $line->[5] ) ) { - say "# ${info_line}"; + for my $hint ( @{ $line->[5] } ) { + $hint =~ tr{\n\x0d}{ }s; + chomp $hint; + say "# ${hint}"; } } @@ -342,7 +342,7 @@ sub show_results { } @output_line - = ( $dtime, $platform, $line, q{}, $d->destination, $d->info ); + = ( $dtime, $platform, $line, q{}, $d->destination, [ $d->hints ] ); if ( $edata{route} ) { $output_line[3] |