aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2021-07-22 12:16:02 +0200
committerJohn Ankarström <john@ankarstrom.se>2021-07-22 12:16:02 +0200
commitbbcc1a9ae34558a001bbeacd57aab4791ee0a2be (patch)
treeb4fa380c95f5f1f411721b87d44dd738015f072a
parent833eed5c6ac230dc559377d3a6cdb87d68e417e5 (diff)
downloadfref-bbcc1a9ae34558a001bbeacd57aab4791ee0a2be.tar.gz
fref.t: Improve Perl script
-rw-r--r--fref.t4
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,