diff options
| author | Arne Georg Gleditsch <argggh@taniquetil.(none)> | 2009-08-12 22:40:17 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@taniquetil.(none)> | 2009-08-12 22:40:17 +0200 |
| commit | 65c53ad4bf0589c890f9c07383858f244c02c35a (patch) | |
| tree | 8f14fb121c045db3e805bbd8aca60aa9ff0540f6 | |
| parent | 69c9d9207a658bd048fbf54016a5fa4b824a1531 (diff) | |
Don't do textual manipulations on references...
| -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; |