Small patch to misc.pl

Hey, Tony:

Thanks for such a quick action.

					--Jessica  


Date:    Thu, 18 May 1995 16:28:26 EDT
To:      rr-impl at ripe.net

From:    Tony Bates <Tony.Bates at mci.net>
Subject: Small patch to misc.pl

Return-Path: tony at mci.net
X-Phone: +1 703 715 7521
Sender:  tony at mci.net


As part of the checking on Jessica's comment I came across a small
bug where comnunities were not checked correctly.

Please apply the following patch.

*** misc.pl     Mon May  8 12:10:49 1995
--- ../testsrc/src/misc.pl      Thu May 18 16:21:38 1995
***************
*** 197,203 ****
  #
  sub iscommunity {
      local($str) = @_;
!     return 0 if $str =~ /[a-z]/;
      foreach $_ ((keys %KEYWORD, "AS")) {
        if (($_ eq "(") || ($_ eq ")")) {
            $_ = "\\".$_;
--- 197,203 ----
  #
  sub iscommunity {
      local($str) = @_;
!     return 0 if $str !~ /[A-Z]+/;
      foreach $_ ((keys %KEYWORD, "AS")) {
        if (($_ eq "(") || ($_ eq ")")) {
            $_ = "\\".$_;

Tony




-------- Logged at  Fri May 19 18:41:23 MET DST 1995  ---------