$NetBSD: patch-contrib_matrix.pl,v 1.2 2014/12/09 10:45:51 he Exp $ Fix syntax errors flagged by newer perl: qw() doesn't act as a pair of parentheses, so we need to add some of our own. Fix flag pointer, ref. https://lists.ubuntu.com/archives/ubuntu-motu/2010-January/006495.html --- contrib/matrix.pl.orig 2007-07-12 10:17:53.000000000 +0000 +++ contrib/matrix.pl @@ -29,7 +29,7 @@ our $history_enabled = 0; our $css_file; our $dump_update_delay = 5; # time between each normal dumps # (used to detect outdated dump files) -our $flag_url_format = 'http://www.sixxs.net/gfx/countries/%s.gif'; +our $flag_url_format = 'http://www.sixxs.net/s/countries/%s.gif'; our $default_ssm_group = 'ff3e::beac/10000'; our $debug = 0; our $matrix_link_title = 0; @@ -423,7 +423,7 @@ sub start_handler { $adj{$current_beacon}[RX_LOCAL] = $atts{'rxlocal'} if defined $atts{'rxlocal'}; } } elsif ($tag eq 'asm' or $tag eq 'ssm') { - foreach my $att qw(ttl loss delay jitter) { + foreach my $att (qw(ttl loss delay jitter)) { if (defined $atts{$att}) { my $index = $tag eq 'ssm' ? 2 : 1; @@ -534,11 +534,11 @@ sub build_header { my $whatatt = "what=$attwhat&"; my $fullatt = "full=$full_matrix&"; - my @view = qw(ttl loss delay jitter); + my @view = (qw(ttl loss delay jitter)); my @view_name = ('TTL', 'Loss', 'Delay', 'Jitter'); my @view_type = ('hop count', 'percentage', 'ms', 'ms'); - my @sources = qw(asm ssm both ssmorasm); + my @sources = (qw(asm ssm both ssmorasm)); my @sources_name = ('ASM', 'SSM', 'Both', 'SSM or ASM'); my $view_len = scalar(@view); @@ -884,7 +884,10 @@ sub render_matrix { } } elsif ($a eq $b) { printx '