[Omaha.pm] FWD: FIXME, July 2001

[Jay Hannah <jay@jays.net>]

-laugh-

Justin lives in China nowadays. :)

j


Begin forwarded message:
> From: Justin Hopkins <jhop@jays.net>
> Date: November 18, 2006 4:28:22 AM CST
>
> Hmmm, very scary. Thats why I fled the hemisphere. It was only a  
> matter of time before I was discovered.
>
> Happily there is no extradition treaty.
>
> --
> Justin Hopkins
> jhop@jays.net
>
> Jay Hannah wrote:
> > 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/\|\|\|\|$//;