diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-04-05 13:52:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-04-05 13:52:00 +0000 |
| commit | fa92d91276ed4f4dd64cf1590756df75b9c7ead3 (patch) | |
| tree | 2abc93c05e105ab8f63eed29988fbc9ec7737570 /perl_checker.src/test | |
| parent | cc69f2d4545a3c4c7c2dc96023321d35e699e4d9 (diff) | |
| download | perl-MDK-Common-fa92d91276ed4f4dd64cf1590756df75b9c7ead3.tar perl-MDK-Common-fa92d91276ed4f4dd64cf1590756df75b9c7ead3.tar.gz perl-MDK-Common-fa92d91276ed4f4dd64cf1590756df75b9c7ead3.tar.bz2 perl-MDK-Common-fa92d91276ed4f4dd64cf1590756df75b9c7ead3.tar.xz perl-MDK-Common-fa92d91276ed4f4dd64cf1590756df75b9c7ead3.zip | |
use local perl_checker
Diffstat (limited to 'perl_checker.src/test')
| -rwxr-xr-x | perl_checker.src/test/test_it | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/test/test_it b/perl_checker.src/test/test_it index 06ab059..609cc6d 100755 --- a/perl_checker.src/test/test_it +++ b/perl_checker.src/test/test_it @@ -76,7 +76,7 @@ foreach my $test (@tests) { @l = ($header, @l); } output('.pl', @l); - my @log = grep { !/^File .*, line / } `perl_checker .pl`; + my @log = grep { !/^File .*, line / } `../perl_checker .pl`; die "@log in .pl ($file):\n" . join('', @{$test->{lines}}) if any { /^syntax error$/ } @log; foreach my $i (0 .. max(int @{$test->{lines}}, int @log) - 1) { my $s = $test->{lines}[$i]; |