--- ps2rrd.pl	2009/07/16 19:13:01	6
+++ ps2rrd.pl	2009/07/16 19:20:07	8
@@ -43,6 +43,8 @@
 	$cp->{$c[$_]} = $_ foreach 0 .. $#c;
 	our @r;
 	sub c {
+		return $r[ $cp->{$_[0]} ];	# XXX speedup
+
 		my $name = shift;
 		my $n = $cp->{$name};
 		die "no column $name in ",dump( $cp ) unless defined $n;