From 26d286598b9ba2af7f09fa31a5d7e6efb0fa03ea Mon Sep 17 00:00:00 2001 From: fukachan Date: Thu, 4 May 2006 05:01:56 +0000 Subject: define incoming_message(), which returns undef as a dummy. --- fml/lib/FML/Process/Debug.pm | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) (limited to 'fml/lib/FML/Process/Debug.pm') diff --git a/fml/lib/FML/Process/Debug.pm b/fml/lib/FML/Process/Debug.pm index 98d13b9f..9d1be31a 100644 --- a/fml/lib/FML/Process/Debug.pm +++ b/fml/lib/FML/Process/Debug.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Debug.pm,v 1.11 2006/04/17 13:36:23 fukachan Exp $ +# $FML: Debug.pm,v 1.12 2006/04/18 11:14:06 fukachan Exp $ # package FML::Process::Debug; @@ -201,6 +201,25 @@ sub config } +=head2 incoming_message() + +return undef since this method is a dummy. + +=cut + + +# Descriptions: dummy. return undef. +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: undef +sub incoming_message +{ + my ($self) = @_; + + return undef; +} + + =head2 dump_curproc($curproc) dump the curproc structure. -- cgit v1.2.1