@@ -, +, @@ 5.26 use lib $FindBin::Bin; --- misc/translator/text-extract.pl | 4 ++++ misc/translator/text-extract2.pl | 3 +++ misc/translator/tmpl_process3.pl | 3 +++ misc/translator/translate | 3 +++ misc/translator/xgettext.pl | 3 +++ 5 files changed, 16 insertions(+) --- a/misc/translator/text-extract.pl +++ a/misc/translator/text-extract.pl @@ -1,6 +1,10 @@ #!/usr/bin/perl #use strict; #use warnings; FIXME - Bug 2505 + +use FindBin; +use lib $FindBin::Bin; + use HTML::Tree; use Getopt::Std; getopt("f:"); --- a/misc/translator/text-extract2.pl +++ a/misc/translator/text-extract2.pl @@ -14,6 +14,9 @@ # --> This will be relatively major rework, and requires corresponding # rework in tmpl_process.pl +use FindBin; +use lib $FindBin::Bin; + use strict; #use warnings; FIXME - Bug 2505 use Getopt::Long; --- a/misc/translator/tmpl_process3.pl +++ a/misc/translator/tmpl_process3.pl @@ -4,6 +4,9 @@ # Parts copyright 2003-2004 Jerome Vizcaino # Parts copyright 2004 Ambrose Li +use FindBin; +use lib $FindBin::Bin; + =head1 NAME tmpl_process3.pl - Alternative version of tmpl_process.pl --- a/misc/translator/translate +++ a/misc/translator/translate @@ -19,6 +19,9 @@ package Main; +use FindBin; +use lib $FindBin::Bin; + use strict; use warnings; --- a/misc/translator/xgettext.pl +++ a/misc/translator/xgettext.pl @@ -6,6 +6,9 @@ xgettext.pl - xgettext(1)-like interface for .tt strings extraction =cut +use FindBin; +use lib $FindBin::Bin; + use strict; use warnings; use Getopt::Long; --