comment on STDERR usage

5 files changed, 12 insertions, 5 deletions

diff --git a/fml/lib/FML/Log.pm b/fml/lib/FML/Log.pm
index 26a621b9..c4a8729b 100644
--- a/fml/lib/FML/Log.pm
+++ b/fml/lib/FML/Log.pm
@@ -2,7 +2,7 @@
 #
 # Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
 #
-# $FML: Log.pm,v 1.25 2002/12/26 04:26:10 fukachan Exp $
+# $FML: Log.pm,v 1.26 2003/01/11 06:58:45 fukachan Exp $
 #
 
 package FML::Log;
@@ -167,6 +167,7 @@ sub LogWarn
 	Log("warn: ".$mesg, $args);
     };
     if ($@) {
+	# XXX valid use of STDERR
 	print STDERR "warn: ", $mesg, "\n";
     }
 }
@@ -185,6 +186,7 @@ sub LogError
 	Log("error: ".$mesg, $args);
     };
     if ($@) {
+	# XXX valid use of STDERR
 	print STDERR "error: ", $mesg, "\n";
     }
 }
diff --git a/fml/lib/FML/Process/Obsolete.pm b/fml/lib/FML/Process/Obsolete.pm
index fa02a08a..6bb3bd10 100644
--- a/fml/lib/FML/Process/Obsolete.pm
+++ b/fml/lib/FML/Process/Obsolete.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: Obsolete.pm,v 1.1 2003/03/14 03:45:58 fukachan Exp $
+# $FML: Obsolete.pm,v 1.2 2003/08/23 04:35:40 fukachan Exp $
 #
 
 package FML::Process::Obsolete;
@@ -51,6 +51,7 @@ sub help
     use File::Basename;
     my $myname = basename($0);
 
+    # XXX valid use of STDERR
     print STDERR "\nWARNING: $myname command is obsolete.\n\n";
 
     exit(0);
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index 332aca00..1587288b 100644
--- a/fml/lib/FML/Process/Switch.pm
+++ b/fml/lib/FML/Process/Switch.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: Switch.pm,v 1.93 2003/09/13 05:03:12 fukachan Exp $
+# $FML: Switch.pm,v 1.94 2003/09/13 06:14:38 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -95,6 +95,7 @@ sub main::Bootstrap2
     my $myname      = basename($0); # inspect my name from $0
 
     # 0.1
+    # XXX valid use of STDERR
     print STDERR "\nsetuid is not set $< != $>\n\n" if $< != $>;
     print STDERR "\nsetgid is not set $( != $)\n\n" if $( ne $);
 
diff --git a/fml/lib/Mail/Delivery/Utils.pm b/fml/lib/Mail/Delivery/Utils.pm
index 29e507ec..96e00433 100644
--- a/fml/lib/Mail/Delivery/Utils.pm
+++ b/fml/lib/Mail/Delivery/Utils.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: Utils.pm,v 1.11 2003/08/23 04:35:46 fukachan Exp $
+# $FML: Utils.pm,v 1.12 2003/08/23 15:33:16 fukachan Exp $
 #
 
 package Mail::Delivery::Utils;
@@ -94,6 +94,7 @@ sub Log
     # function pointer to logging function
     my $fp = $LogFunctionPointer;
 
+    # XXX valid use of STDERR ?
     if ($fp) {
 	eval &$fp($buf);
 	print STDERR $@, "\n" if $@;
diff --git a/fml/lib/Mail/Message/Date.pm b/fml/lib/Mail/Message/Date.pm
index b34b7e09..899fb345 100644
--- a/fml/lib/Mail/Message/Date.pm
+++ b/fml/lib/Mail/Message/Date.pm
@@ -2,7 +2,7 @@
 #
 # Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
 #
-# $FML: Date.pm,v 1.22 2003/07/21 13:59:30 fukachan Exp $
+# $FML: Date.pm,v 1.23 2003/08/23 04:35:47 fukachan Exp $
 #
 
 package Mail::Message::Date;
@@ -273,6 +273,8 @@ my %zone = ("JST", "+0900",
 sub _log
 {
     my ($s) = @_;
+
+    # XXX_TODO: valid use of STDERR ???
     print STDERR $s, "\n" if defined $s;
 }