[40212] in SIPB bug reports
Fixed a bug in whats.pl
daemon@ATHENA.MIT.EDU (Ken T Takusagawa)
Tue Nov 16 17:25:44 2010
From kenta@MIT.EDU Tue Nov 16 22:25:43 2010
Return-Path: <kenta@MIT.EDU>
Delivered-To: bug-sipb-mtg@CHARON.mit.edu
Received: (qmail 23543 invoked from network); 16 Nov 2010 22:25:43 -0000
Received: from mailhub-auth-3.mit.edu (18.9.21.43)
by charon.mit.edu with SMTP; 16 Nov 2010 22:25:43 -0000
Received: from outgoing.mit.edu (OUTGOING-AUTH.MIT.EDU [18.7.22.103])
by mailhub-auth-3.mit.edu (8.13.8/8.9.2) with ESMTP id oAGMPf5b009126;
Tue, 16 Nov 2010 17:25:42 -0500
Received: from localhost (CONTENTS-VNDER-PRESSVRE.MIT.EDU [18.9.64.11])
(authenticated bits=0)
(User authenticated as kenta@ATHENA.MIT.EDU)
by outgoing.mit.edu (8.13.6/8.12.4) with ESMTP id oAGMPf6e005196;
Tue, 16 Nov 2010 17:25:41 -0500 (EST)
Date: Tue, 16 Nov 2010 17:25:40 -0500 (EST)
From: Ken T Takusagawa <kenta@MIT.EDU>
To: bug-sipb@mit.edu, sipb-whats@mit.edu
Subject: Fixed a bug in whats.pl
Message-ID: <alpine.DEB.2.00.1011161724120.1210@contents-vnder-pressvre.mit.edu>
User-Agent: Alpine 2.00 (DEB 1167 2008-08-23)
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
The acronym *$ broke whats.pl, so I've fixed it. The change
was
--- /tmp/whats 2009-08-31 21:06:38.000000000 -0400
+++ whats.pl 2010-11-16 17:15:45.000000000 -0500
@@ -17,7 +17,11 @@
foreach (@ACRON) {
if (open(IN, $_)) {
- push(@entries, grep(/^$a\t/i,<IN>));
+ while(<IN>){
+ next unless /^([^\t]+)\t/;
+ next unless (uc $1) eq $a;
+ push @entries,$_;
+ }
close(IN);
}
}
--ken
--
Sent from a Dell 1950 8 CPU 32 GB RAM
