e-smith-lib/sme9/e-smith-lib-2.4.0-PerlCritic-getLicenseFile.patch

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}";
1	wellsi	1.1	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
2			--- e-smith-lib-2.4.0.mod/root/usr/share/perl5/vendor_perl/esmith/util.pm 2014-04-05 09:03:06.000000000 -0700
3			+++ e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/util.pm 2014-04-05 09:11:04.000000000 -0700
4			@@ -1187,7 +1187,7 @@
5
6			if ($locale)
7			{
8			- $locale =~ s/-(\S\S)/_\U$1/;
9			+ $locale =~ s/-(\S\S)/_\U$1/s;
10			}
11			else
12			{
13			@@ -1195,21 +1195,21 @@
14
15			my ( $lang, @rest ) = $db->getLocale();
16
17			- $lang = $lang \|\| "en_US";
18			+ $lang = $lang \|\| 'en_US';
19
20			$locale = $lang;
21			}
22
23			- my $base_dir = $ENV{ESMITH_LICENSE_DIR} \|\| "/etc/e-smith/licenses";
24			+ my $base_dir = $ENV{ESMITH_LICENSE_DIR} \|\| '/etc/e-smith/licenses';
25
26			- $locale = "en_US" unless ( -d "${base_dir}/${locale}" );
27			+ $locale = 'en_US' unless ( -d "${base_dir}/${locale}" );
28
29			my $dir = "${base_dir}/${locale}";
30
31			opendir( DIR, $dir ) \|\| die "Couldn't open licenses directory\n";
32
33			my @licenses;
34			- foreach my $license ( readdir(DIR) )
35			+ foreach my $license ( readdir DIR )
36			{
37			untaint ($license);
38			my $file = "${dir}/${license}";