[Benson-commit] CVS: benson2/src/corba Queue_impl.cc,1.7,1.8

[Bob T. <bt...@us...>]

Update of /cvsroot/benson/benson2/src/corba
In directory usw-pr-cvs1:/tmp/cvs-serv24671/src/corba

Modified Files:
	Queue_impl.cc 
Log Message:
This is somewhat experimental stuff, don't use for real

Index: Queue_impl.cc
===================================================================
RCS file: /cvsroot/benson/benson2/src/corba/Queue_impl.cc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** Queue_impl.cc	2001/04/17 03:21:23	1.7
--- Queue_impl.cc	2001/07/15 02:00:55	1.8
***************
*** 95,100 ****
  	Alert current;
  
! 	alert_href = sv_2mortal(this->hv_alert_list());
! 	SV* identity = sv_2mortal(perl_object->BuildIdentity(sref,alert_href,agent,severity,subsystem,message));
  
  	cout << "Submit " << identity << " initiated." << endl;
--- 95,99 ----
  	Alert current;
  
! 	SV* identity = sv_2mortal(perl_object->BuildIdentity(sref,agent,severity,subsystem,message));
  
  	cout << "Submit " << identity << " initiated." << endl;