From bbcc1a9ae34558a001bbeacd57aab4791ee0a2be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Thu, 22 Jul 2021 12:16:02 +0200
Subject: fref.t: Improve Perl script

---
 fref.t | 4 ++--
 1 file 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,
-- 
cgit v1.2.3