From 86d376e484268c264ce5ab25f43670a50c5d2f00 Mon Sep 17 00:00:00 2001 From: Stefan Metzmacher Date: Fri, 20 Apr 2007 17:13:52 +0000 Subject: r22414: use more portable perl hopefully fix solaris 8... metze (This used to be commit 103df4465e464f8aef3ec8ff91fa2b11c7771492) --- source4/script/tests/selftest.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'source4/script') diff --git a/source4/script/tests/selftest.pl b/source4/script/tests/selftest.pl index 1d9f58a11a..ac3104c380 100755 --- a/source4/script/tests/selftest.pl +++ b/source4/script/tests/selftest.pl @@ -343,11 +343,11 @@ sub run_test($$$$$$) setup_pcap($msg_state); - $msg_ops->{start_msg}($msg_state); + $msg_ops->{start_msg}->($msg_state); open(RESULT, "$cmd 2>&1|"); while () { - $msg_ops->{output_msg}($msg_state, $_); + $msg_ops->{output_msg}->($msg_state, $_); if (/^test: (.+)\n/) { $open_tests->{$1} = 1; } elsif (/^(success|failure|skip|error): (.*?)( \[)?\n/) { @@ -377,14 +377,14 @@ sub run_test($$$$$$) } } foreach (keys %$open_tests) { - $msg_ops->{output_msg}($msg_state, "$_ was started but never finished!\n"); + $msg_ops->{output_msg}->($msg_state, "$_ was started but never finished!\n"); $statistics->{TESTS_ERROR}++; } my $ret = close(RESULT); cleanup_pcap($msg_state, $expected_ret, $ret); - $msg_ops->{end_msg}($msg_state, $expected_ret, $ret); + $msg_ops->{end_msg}->($msg_state, $expected_ret, $ret); if ($ret != $expected_ret) { push(@$suitesfailed, $name); -- cgit