use FindBin for perlscirpts
author |
anatofuz |
date |
Mon, 05 Nov 2018 16:44:49 +0900 |
parents |
b9a157e11952 |
children |
1fda58f3b60f |
files |
logs2.pl opcode2function.pl |
diffstat |
2 files changed, 4 insertions(+), 2 deletions(-)
[+]
|
line diff
--- a/logs2.pl Mon Nov 05 16:40:06 2018 +0900
+++ b/logs2.pl Mon Nov 05 16:44:49 2018 +0900
@@ -1,7 +1,8 @@
use strict;
use warnings;
-use lib 'lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use OPCODE2Function;
my $originlog = shift or die "use originlog cbclog";
--- a/opcode2function.pl Mon Nov 05 16:40:06 2018 +0900
+++ b/opcode2function.pl Mon Nov 05 16:44:49 2018 +0900
@@ -1,7 +1,8 @@
use strict;
use warnings;
-use lib 'lib';
+use FindBin;
+use lib "$FindBin::Bin/lib";
use OPCODE2Function;
my $input = shift or die 'use input cur_op';