minor streamlining

This commit is contained in:
Dima Kogan 2010-09-23 23:02:35 -07:00
parent e4f3122d3f
commit 139f89e145

View File

@ -486,9 +486,9 @@ sub plotStoredData
{ {
# send each point to gnuplot. Ignore the first "point" since it's the # send each point to gnuplot. Ignore the first "point" since it's the
# curve options # curve options
for my $elem (@{$buf}[1..$#$buf]) { for my $elem (@{$buf}[1..$#$buf])
my ($x, $y) = @$elem; {
print PIPE "$x $y\n"; print PIPE "@$elem\n";
} }
print PIPE "e\n"; print PIPE "e\n";
} }