From 778eb7fa794c503e29f3c4d9e9696ab167898bdb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Apr 2004 13:52:00 +0000 Subject: use local perl_checker --- perl_checker.src/test/test_it | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src/test') 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]; -- cgit v1.2.1