[Omaha.pm] FWD: FIXME, July 2001

[Jay Hannah]

-laugh-

Justin lives in China nowadays. :)

j


Begin forwarded message:
> From: Justin Hopkins <jhop at 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 at 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/\|\|\|\|$//;