Parent Directory | Revision Log | Patch
revision 7 by dpavlin, Thu Jul 16 19:13:01 2009 UTC | revision 8 by dpavlin, Thu Jul 16 19:20:07 2009 UTC | |
---|---|---|
# | Line 43 sub count { | Line 43 sub count { |
43 | $cp->{$c[$_]} = $_ foreach 0 .. $#c; | $cp->{$c[$_]} = $_ foreach 0 .. $#c; |
44 | our @r; | our @r; |
45 | sub c { | sub c { |
46 | return $r[ $cp->{$_[0]} ]; # XXX speedup | |
47 | ||
48 | my $name = shift; | my $name = shift; |
49 | my $n = $cp->{$name}; | my $n = $cp->{$name}; |
50 | die "no column $name in ",dump( $cp ) unless defined $n; | die "no column $name in ",dump( $cp ) unless defined $n; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |