Bug#1002963: [PATCH] local-debbugs: use FindBin
Package: debbugs
This allows running of it from the git tree directly.
---
bin/local-debbugs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/bin/local-debbugs b/bin/local-debbugs
index 3e397f38999b..69406dd74585 100755
--- a/bin/local-debbugs
+++ b/bin/local-debbugs
@@ -122,6 +122,8 @@ use IPC::Run;
use IO::File;
use File::Path;
use File::Spec;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
my %options = (debug => 0,
help => 0,
@@ -162,8 +164,8 @@ if ($options{git_mode}) {
$options{template_dir} = "/usr/share/debbugs/templates";
}
-eval "use Debbugs::Common qw(checkpid lockpid get_hashname)";
-eval "use Debbugs::Mail qw(get_addresses)";
+use Debbugs::Common qw(checkpid lockpid get_hashname);
+use Debbugs::Mail qw(get_addresses);
pod2usage() if $options{help};
pod2usage({verbose=>2}) if $options{man};
--
2.33.0
Reply to: