fref.t: Improve Perl script

1 files changed, 2 insertions, 2 deletions

diff --git a/fref.t b/fref.t
index f910a40..a84c442 100644
--- a/fref.t
+++ b/fref.t
@@ -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,