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) {
|
