Index: openacs-4/packages/acs-lang/bin/check-catalog-file-path.pl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/bin/check-catalog-file-path.pl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/bin/check-catalog-file-path.pl	19 Dec 2002 17:49:10 -0000	1.2
+++ openacs-4/packages/acs-lang/bin/check-catalog-file-path.pl	11 Mar 2003 20:15:14 -0000	1.3
@@ -13,7 +13,7 @@
 my $file_path = shift or die "usage: $usage";
 
 # Parse information from the file path
-$file_path =~ m#(?i)([a-z-]+)/catalog/\1\.([a-z]{2}_[a-z]{2})\.(.*)\.xml$# 
+$file_path =~ m#(?i)([a-z-]+)/catalog/\1\.([a-z]{2,3}_[a-z]{2})\.(.*)\.xml$# 
     or die "catalog file path $file_path is not on format package_key/catalog/package_key.locale.charset.xml";
 my ($file_package, $file_locale, $file_charset) = ($1, $2, $3, $4);