Mercurial > hg > Members > anatofuz > nqp-cbc-tools
comparison opcode2function.pl @ 8:3525971010e4
use FindBin for perlscirpts
author | anatofuz |
---|---|
date | Mon, 05 Nov 2018 16:44:49 +0900 |
parents | f873ae65aab1 |
children | 5bf045527a94 |
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 $input = shift or die 'use input cur_op'; | 8 my $input = shift or die 'use input cur_op'; |
8 chomp $input; | 9 chomp $input; |
9 | 10 |