Mercurial > hg > Members > anatofuz > nqp-cbc-tools
comparison logs2.pl @ 8:3525971010e4
use FindBin for perlscirpts
author | anatofuz |
---|---|
date | Mon, 05 Nov 2018 16:44:49 +0900 |
parents | b9a157e11952 |
children | 1fda58f3b60f |
comparison
equal
deleted
inserted
replaced
7:b9a157e11952 | 8:3525971010e4 |
---|---|
1 use strict; | 1 use strict; |
2 use warnings; | 2 use warnings; |
3 | 3 |
4 use lib 'lib'; | 4 use FindBin; |
5 use lib "$FindBin::Bin/lib"; | |
5 use OPCODE2Function; | 6 use OPCODE2Function; |
6 | 7 |
7 my $originlog = shift or die "use originlog cbclog"; | 8 my $originlog = shift or die "use originlog cbclog"; |
8 my $cbclog = shift or die "use originlog cbclog"; | 9 my $cbclog = shift or die "use originlog cbclog"; |
9 | 10 |