diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2009-08-12 22:48:23 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2009-08-12 22:48:23 +0200 |
| commit | 4df686a0aa8ef2f75be6cee2bfa2874f1bbb4437 (patch) | |
| tree | 03833400baeb036eb0c87e3fa44a52574bfe07fd /lib/LXRng/Index/DBI.pm | |
| parent | edd2d08a9aef32f442f43fb960a80680389b1685 (diff) | |
| parent | 40c6f593f54c8023d6ed74e695de6b3a56a74bad (diff) | |
Merge branch 'master' of /home/argggh/git/lxrng/v1.2
Diffstat (limited to 'lib/LXRng/Index/DBI.pm')
| -rw-r--r-- | lib/LXRng/Index/DBI.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/LXRng/Index/DBI.pm b/lib/LXRng/Index/DBI.pm index 8fcb391..eeb6a83 100644 --- a/lib/LXRng/Index/DBI.pm +++ b/lib/LXRng/Index/DBI.pm @@ -471,7 +471,8 @@ sub get_symbol_usage { my %rlines; foreach my $r (@$res) { - $rlines{$$r[0]} = [$$r[1] =~ /(\d+),?/g]; + $rlines{$$r[0]} = ref($$r[1]) eq 'ARRAY' + ? $$r[1] : [$$r[1] =~ /(\d+),?/g]; } return \%rlines; |