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

diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config/utf8.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config/utf8.pm
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config/utf8.pm       1969-12-31 17:00:00.000000000 -0700
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config/utf8.pm     2008-07-31 09:21:16.000000000 -0600
@@ -0,0 +1,25 @@
+#----------------------------------------------------------------------
+# Copyright 1999-2008 Mitel Networks Corporation
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#----------------------------------------------------------------------
+
+package esmith::config::utf8;
+use warnings;
+use strict;
+
+use vars qw(@ISA);
+@ISA = qw(esmith::config);
+
+sub _read_binmode
+{
+    return ":encoding(UTF-8)";
+}
+
+sub _write_binmode
+{
+    return ":utf8";
+}
+
+1;
+
diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/UTF8.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/UTF8.pm
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/UTF8.pm     1969-12-31 17:00:00.000000000 -0700
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/UTF8.pm   2008-07-31 09:20:19.000000000 -0600
@@ -0,0 +1,22 @@
+#----------------------------------------------------------------------
+# Copyright 1999-2008 Mitel Networks Corporation
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#----------------------------------------------------------------------
+
+package esmith::ConfigDB::UTF8;
+
+use strict;
+use warnings;
+
+use esmith::DB::db;
+use esmith::config::utf8;
+our @ISA = qw( esmith::DB::db );
+
+sub tie_class
+{
+    return 'esmith::config::utf8';
+}
+
+1;
+
diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/NavigationDB.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/NavigationDB.pm
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/NavigationDB.pm      1969-12-31 17:00:00.000000000 -0700
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/NavigationDB.pm    2008-07-31 09:19:13.000000000 -0600
@@ -0,0 +1,16 @@
+#----------------------------------------------------------------------
+# Copyright 1999-2008 Mitel Networks Corporation
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#----------------------------------------------------------------------
+
+package esmith::NavigationDB;
+
+use strict;
+use warnings;
+
+use esmith::ConfigDB::UTF8;
+our @ISA = qw( esmith::ConfigDB::UTF8 );
+
+1;
+
1	diff -Nur -x '.orig' -x '.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config/utf8.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config/utf8.pm
2	--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config/utf8.pm 1969-12-31 17:00:00.000000000 -0700
3	+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/config/utf8.pm 2008-07-31 09:21:16.000000000 -0600
4	@@ -0,0 +1,25 @@
5	+#----------------------------------------------------------------------
6	+# Copyright 1999-2008 Mitel Networks Corporation
7	+# This program is free software; you can redistribute it and/or
8	+# modify it under the same terms as Perl itself.
9	+#----------------------------------------------------------------------
10	+
11	+package esmith::config::utf8;
12	+use warnings;
13	+use strict;
14	+
15	+use vars qw(@ISA);
16	+@ISA = qw(esmith::config);
17	+
18	+sub _read_binmode
19	+{
20	+ return ":encoding(UTF-8)";
21	+}
22	+
23	+sub _write_binmode
24	+{
25	+ return ":utf8";
26	+}
27	+
28	+1;
29	+
30	diff -Nur -x '.orig' -x '.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/UTF8.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/UTF8.pm
31	--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/UTF8.pm 1969-12-31 17:00:00.000000000 -0700
32	+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/ConfigDB/UTF8.pm 2008-07-31 09:20:19.000000000 -0600
33	@@ -0,0 +1,22 @@
34	+#----------------------------------------------------------------------
35	+# Copyright 1999-2008 Mitel Networks Corporation
36	+# This program is free software; you can redistribute it and/or
37	+# modify it under the same terms as Perl itself.
38	+#----------------------------------------------------------------------
39	+
40	+package esmith::ConfigDB::UTF8;
41	+
42	+use strict;
43	+use warnings;
44	+
45	+use esmith::DB::db;
46	+use esmith::config::utf8;
47	+our @ISA = qw( esmith::DB::db );
48	+
49	+sub tie_class
50	+{
51	+ return 'esmith::config::utf8';
52	+}
53	+
54	+1;
55	+
56	diff -Nur -x '.orig' -x '.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/NavigationDB.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/NavigationDB.pm
57	--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/NavigationDB.pm 1969-12-31 17:00:00.000000000 -0700
58	+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/NavigationDB.pm 2008-07-31 09:19:13.000000000 -0600
59	@@ -0,0 +1,16 @@
60	+#----------------------------------------------------------------------
61	+# Copyright 1999-2008 Mitel Networks Corporation
62	+# This program is free software; you can redistribute it and/or
63	+# modify it under the same terms as Perl itself.
64	+#----------------------------------------------------------------------
65	+
66	+package esmith::NavigationDB;
67	+
68	+use strict;
69	+use warnings;
70	+
71	+use esmith::ConfigDB::UTF8;
72	+our @ISA = qw( esmith::ConfigDB::UTF8 );
73	+
74	+1;
75	+