[Lxr-commits] CVS: lxr ident,1.36,1.37

[Andre-Littoz <ajl...@us...>]

Update of /cvsroot/lxr/lxr
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv32138

Modified Files:
	ident 
Log Message:
ident: fix for bug #233

Relaxed syntax may cause error with some Perl interpreters. Change lines 419 & 485 with @{...} to force "reference" value.

Index: ident
===================================================================
RCS file: /cvsroot/lxr/lxr/ident,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- ident	21 Nov 2012 15:04:44 -0000	1.36
+++ ident	8 Apr 2013 16:05:04 -0000	1.37
@@ -416,7 +416,7 @@
 	foreach my $i (@defs) {	# Group all definitions from a file
 		my @defn = @$i;
 		$defs{$defn[0]} = [] unless defined($defs{$defn[0]});
-		push($defs{$defn[0]}, [ @defn[1..3] ]);
+		push(@{$defs{$defn[0]}}, [ @defn[1..3] ]);
 	}
 NATIVE_CASE:	# Remove uppercase duplicates
 	foreach (@idefs) {
@@ -482,7 +482,7 @@
 	foreach my $i (@uses) {	# Group all usages from a file
 		my @ref = @$i;
 		$uses{$ref[0]} = [] unless defined($uses{$ref[0]});
-		push ($uses{$ref[0]},  @ref[1]);
+		push (@{$uses{$ref[0]}},  @ref[1]);
 	}
 NATIVE_CASE:	# Remove uppercase duplicates
 	foreach (@iuses) {