Optimizations for better usage of XS code

This commit is contained in:
Alessandro Ranellucci committed 2013-08-29 01:36:42 +02:00
1 parent 9254ff9704
commit 5d6fd7f4d9
22 files changed
+68 -42

No files matched your search

+2 -2
View File
@@ -80,8 +80,8 @@ sub BUILD {
for my $i (0 .. $#outer) {
foreach my $line ($outer[$i]->lines) {
my $dist = $line->length;
$edges->{$line->[A]}{$line->[B]} = $dist;
$edges->{$line->[B]}{$line->[A]} = $dist;
$edges->{$line->a}{$line->b} = $dist;
$edges->{$line->b}{$line->a} = $dist;
}
}