chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
75cdb42
)
yppedia-chart-parser: workarounds for perl mode bad syntax parsing
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 6 Jan 2012 00:50:30 +0000
(
00:50
+0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 6 Jan 2012 00:50:30 +0000
(
00:50
+0000)
yarrg/yppedia-chart-parser
patch
|
blob
|
history
diff --git
a/yarrg/yppedia-chart-parser
b/yarrg/yppedia-chart-parser
index 76100dc5ccf88a2931a00ea694399f9929634d71..52bd4f7e60e5920be0f278fcc7b29e4378e8f4ed 100755
(executable)
--- a/
yarrg/yppedia-chart-parser
+++ b/
yarrg/yppedia-chart-parser
@@
-221,7
+221,7
@@
sub yppedia_archs_chart_labels () {
next unless exists $winode2island{$vertex};
my $ccix= $wiarchs->connected_component_by_vertex($vertex);
my @cc= $wiarchs->connected_component_by_index($ccix);
next unless exists $winode2island{$vertex};
my $ccix= $wiarchs->connected_component_by_vertex($vertex);
my @cc= $wiarchs->connected_component_by_index($ccix);
- my ($vx,$vy) = split /,/, $vertex;
+ my ($vx,$vy) = split /,/, $vertex;
# /
my $d2= ($vx-$ax)*($vx-$ax) + ($vy-$ay)*($vy-$ay);
my $cmp= $best_d2 <=> $d2;
printf $debugfh "%2d,%-2d arch-island-search %5s d2=%4d cc%-2d".
my $d2= ($vx-$ax)*($vx-$ax) + ($vy-$ay)*($vy-$ay);
my $cmp= $best_d2 <=> $d2;
printf $debugfh "%2d,%-2d arch-island-search %5s d2=%4d cc%-2d".
@@
-464,6
+464,7
@@
sub shortest_path_reduction ($$) {
not essential and is therefore unnecessary.
END
not essential and is therefore unnecessary.
END
+ # `
printf $debugfh "spr %s before %d\n", $what, scalar($g->edges());
printf $debugfh "spr %s before %d\n", $what, scalar($g->edges());
@@
-555,7
+556,7
@@
sub yppedia_ocean_fetch_text () {
die unless defined $arch;
$wtisland2arch{$'}= $arch;
} elsif (m/^ /) {
die unless defined $arch;
$wtisland2arch{$'}= $arch;
} elsif (m/^ /) {
- $arch= $';
+ $arch= $';
# '
} else {
die;
}
} else {
die;
}