diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2007-11-27 01:10:58 +0100 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2007-11-27 01:10:58 +0100 |
| commit | 77f76725888920d10b527db5f291d704f0f5b26d (patch) | |
| tree | 1c0e1874bcdc90352548f5125cbdb96643aa5002 /lib/LXRng/Index/PgBatch.pm | |
| parent | 5c682b22600bbd08888af07f93422c1cd733609d (diff) | |
Rework usage stats.
Diffstat (limited to 'lib/LXRng/Index/PgBatch.pm')
| -rw-r--r-- | lib/LXRng/Index/PgBatch.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/LXRng/Index/PgBatch.pm b/lib/LXRng/Index/PgBatch.pm index 19c9fa9..40654d2 100644 --- a/lib/LXRng/Index/PgBatch.pm +++ b/lib/LXRng/Index/PgBatch.pm @@ -146,9 +146,10 @@ sub _prime_symbol_cache { } sub _add_usage { - my ($self, $file_id, $line, $symbol_id) = @_; + my ($self, $file_id, $symbol_id, $lines) = @_; - push(@{$self->_cache('usage')}, "$file_id\t$symbol_id\t$line\n"); + push(@{$self->_cache('usage')}, + "$file_id\t$symbol_id\t\{".join(",", @$lines)."}\n"); return 1; } |