diff options
-rw-r--r-- | gnu/usr.bin/man/catman/catman.perl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gnu/usr.bin/man/catman/catman.perl b/gnu/usr.bin/man/catman/catman.perl index 947dc4c..5b51d2f 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; } ############# |