[haver-commits] r900 - in trunk: . perl/server/lib/Haver/Server

[haver]

Author: dylan
Date: 2005-08-01 10:57:58 -0400 (Mon, 01 Aug 2005)
New Revision: 900

Modified:
   trunk/
   trunk/perl/server/lib/Haver/Server/Talker.pm
Log:
Fixes for bd_'s test case.



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1324
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1326
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/perl/server/lib/Haver/Server/Talker.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Talker.pm        2005-08-01 14:57:33 UTC 
(rev 899)
+++ trunk/perl/server/lib/Haver/Server/Talker.pm        2005-08-01 14:57:58 UTC 
(rev 900)
@@ -86,14 +86,15 @@
        my $event = 'msg_' . $cmd;
        
        Log('info', "Command: '$cmd'");
-       $heap->{cmd} = $cmd;
+       push @{ $heap->{cmd} }, $cmd;
        call('schedule_ping');
-       post($event, $args, $cmd);
+       call($event, $args, $cmd);
+       pop @{ $heap->{cmd} };
 }
 
 sub fail {
        my ($kernel, $heap, $err, @args) = @_[KERNEL, HEAP, ARG0 .. $#_];
-       $heap->{client}->put(['FAIL', $heap->{cmd}, $err, @args]);
+       $heap->{client}->put(['FAIL', $heap->{cmd}[-1], $err, @args]);
 }