diff -ruN e-smith-lib-2.4.0.mod/root/usr/share/perl5/vendor_perl/esmith/util.pm e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/util.pm
--- e-smith-lib-2.4.0.mod/root/usr/share/perl5/vendor_perl/esmith/util.pm	2014-04-05 09:03:06.000000000 -0700
+++ e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/util.pm	2014-04-05 09:11:04.000000000 -0700
@@ -1187,7 +1187,7 @@
 
     if ($locale)
     {
-        $locale =~ s/-(\S\S)/_\U$1/;
+        $locale =~ s/-(\S\S)/_\U$1/s;
     }
     else
     {
@@ -1195,21 +1195,21 @@
 
         my ( $lang, @rest ) = $db->getLocale();
 
-        $lang = $lang || "en_US";
+        $lang = $lang || 'en_US';
 
         $locale = $lang;
     }
 
-    my $base_dir = $ENV{ESMITH_LICENSE_DIR} || "/etc/e-smith/licenses";
+    my $base_dir = $ENV{ESMITH_LICENSE_DIR} || '/etc/e-smith/licenses';
 
-    $locale = "en_US" unless ( -d "${base_dir}/${locale}" );
+    $locale = 'en_US' unless ( -d "${base_dir}/${locale}" );
 
     my $dir = "${base_dir}/${locale}";
 
     opendir( DIR, $dir ) || die "Couldn't open licenses directory\n";
 
     my @licenses;
-    foreach my $license ( readdir(DIR) )
+    foreach my $license ( readdir DIR )
     {
         untaint ($license);
         my $file = "${dir}/${license}";