loginfo log messages

[Grisinger, Daniel (MAN-Golden)]

Hiya!

I'm trying to capture the log message included with each commit, using a
filter specified in the loginfo file.  I don't seem to be getting the log
message, though.  I'm using this code:

  my $log_msg;
  my $infh = IO::File -> new('< -');  # open a filehandle to STDIN
  for ($infh -> getlines) {
    $log_msg .= $_;
  }

which is modestly adapted from the contents of /usr/share/cvs/contrib/log on
a redhat 8.0 
system.  The $log_msg variable never gets populated with anything, though.

Am I doing something wrong?  CVS server version 1.11.1p1 and client version
1.11.2.

Thanks.

daniel