From 65c53ad4bf0589c890f9c07383858f244c02c35a Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@taniquetil.(none)>
Date: Wed, 12 Aug 2009 22:40:17 +0200
Subject: Don't do textual manipulations on references...

---
 lib/LXRng/Index/DBI.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/LXRng/Index/DBI.pm')

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;
-- 
cgit v1.2.3