Fix broken -L for short locale names.

2001-02-16 12:28:30 +00:00 · 2001-02-16 12:28:30 +00:00 · 65018bec8d
commit 65018bec8d
parent 19406c7d66
1 changed files with 2 additions and 0 deletions
--- 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;
 }

 #############