"ROSE" has got to be the weirdest line ending I've ever seen.

I took the liberty of cleaning up your code a bit.

• I fixed a bug where a single message could be considered two.
• I eliminated the select which needlessly served to empty the pipe.
• I replaced split since you have a record terminator rather than a record separator.

# Non blocking open
open (FH, "+<", $config->{'pipe'} ) || die "Unable to open $config->{'
+pipe'}";

my $buf = '';

# Loop forever.
while (1) {
    my $rv = sysread( FH, $buf, 2048, length($buf) );
    die("Error reading from pipe: $!\n") if !defined($rv);

    # 9/4/8 A request is C,DIR,1ROSE
    # Multiple requests can come through on one read ie C,FOO,1ROSEC,B
+AR,1ROSE
    while ($buf =~ s/(.*?ROSE)//s) {
       my $rec = $1;
       Log( { logfile => $log_file, text => "trace: START: $rec" }) if
+ TRACE;

        if ( $rec =~ /^RELOAD,/ ) {
            # Reread the config file
            Log({logfile=>$log_file, text=> qq{RELOAD: Reloading confi
+g}});
            load_config();
        }
        else {
            process_input( { data => $rec } );
        }
    }

} # while 1
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.