diff options
-rw-r--r-- | fref.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -179,8 +179,8 @@ $i++ if /^[^%]/ and $e[$i] =~ /^%/m; $e[$i] .= $_; END { print for sort { f($a) cmp f($b) } @e } sub f { - return $1 if $_[0] =~ /^%la.(.)/m; - return $1 if $_[0] =~ /^%au.(.)/m; + return $1 if $_[0] =~ /^%la.(.*)$/m; + return $1 if $_[0] =~ /^%au.(.*)$/m; } .PP If you keep your references in a separate file, |