From 6db9673342172cf40da3e794da7f0de053ee19a4 Mon Sep 17 00:00:00 2001
From: Ruslan Ermilov <ru@FreeBSD.org>
Date: Fri, 16 Feb 2001 12:28:30 +0000
Subject: [PATCH] Fix broken -L for short locale names.

---
 gnu/usr.bin/man/catman/catman.perl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gnu/usr.bin/man/catman/catman.perl b/gnu/usr.bin/man/catman/catman.perl
index 947dc4c2421..5b51d2ff39d 100644
--- a/gnu/usr.bin/man/catman/catman.perl
+++ b/gnu/usr.bin/man/catman/catman.perl
@@ -420,6 +420,8 @@ sub short_locale_name {
 
   $lname =~ s|_[A-Z][A-Z]||;
   warn "short locale name is $lname\n" if $verbose && $locale;
+
+  return $lname;
 }
 
 #############