Author: metze Date: 2007-04-20 17:13:52 +0000 (Fri, 20 Apr 2007) New Revision: 22414
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=22414 Log: use more portable perl hopefully fix solaris 8... metze Modified: branches/SAMBA_4_0/source/script/tests/selftest.pl Changeset: Modified: branches/SAMBA_4_0/source/script/tests/selftest.pl =================================================================== --- branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-04-20 16:07:16 UTC (rev 22413) +++ branches/SAMBA_4_0/source/script/tests/selftest.pl 2007-04-20 17:13:52 UTC (rev 22414) @@ -343,11 +343,11 @@ setup_pcap($msg_state); - $msg_ops->{start_msg}($msg_state); + $msg_ops->{start_msg}->($msg_state); open(RESULT, "$cmd 2>&1|"); while (<RESULT>) { - $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 @@ } } 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);
