[Omaha.pm] FIXME, July 2001

[Jay Hannah <jay@jays.net>]

Justin: Remember this? Scary, huh?

My favorite part of this code snippet is the FIXME from July 2001.

Ya, I'll get right on that.  :)

j




RCS file: /cvs/source/specific/gds/perl/comserver/cserr_handler-b.pl,v
----------------------------
revision 1.1
date: 2001/07/30 19:20:47;  author: jhopkins;  state: Exp;
Initial revision


1.1  (jhopkins 30-Jul-01): while(1)
1.1  (jhopkins 30-Jul-01):   {
1.1  (jhopkins 30-Jul-01):     $/ = '||||'; # FIXME?
1.1  (jhopkins 30-Jul-01):     my $errmsg = <$readfh>;
1.1  (jhopkins 30-Jul-01):     $/ = "\n";
1.1  (jhopkins 30-Jul-01):     if((!defined $errmsg) || ($errmsg =~ /^\s*$/))
1.1  (jhopkins 30-Jul-01):       {
1.1  (jhopkins 30-Jul-01):      # Someone closed the pipe
1.1  (jhopkins 30-Jul-01):      exit(0);
1.1  (jhopkins 30-Jul-01):       }
1.1  (jhopkins 30-Jul-01):     $errmsg =~ s/\|\|\|\|$//;