svn commit: samba r22414 - in branches/SAMBA_4_0/source/script/tests: .

[metze at samba.org]

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);