e-smith-lib/sme7/e-smith-lib-1.18.0-FixFileDescriptorLeak.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm      2006-02-17 03:52:14.000000000 +0000
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm    2007-11-01 20:06:45.000000000 +0000
@@ -93,6 +93,7 @@
                 -f "$localedir/$locale/LC_MESSAGES/server-console.po");
     }
 
+    closedir LOCALE;
     return @locales;
 }
 
@@ -262,7 +263,9 @@
 
     return () unless opendir LOCALE, $localedir;
 
-    return grep(!/\./, readdir LOCALE);
+    my @locales = grep(!/\./, readdir LOCALE);
+    closedir LOCALE;
+    return @locales;
 }
 
 =head2 fallbackLanguage()
1	bytegw	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm
2			--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm 2006-02-17 03:52:14.000000000 +0000
3			+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm 2007-11-01 20:06:45.000000000 +0000
4			@@ -93,6 +93,7 @@
5			-f "$localedir/$locale/LC_MESSAGES/server-console.po");
6			}
7
8			+ closedir LOCALE;
9			return @locales;
10			}
11
12			@@ -262,7 +263,9 @@
13
14			return () unless opendir LOCALE, $localedir;
15
16			- return grep(!/\./, readdir LOCALE);
17			+ my @locales = grep(!/\./, readdir LOCALE);
18			+ closedir LOCALE;
19			+ return @locales;
20			}
21
22			=head2 fallbackLanguage()