Small patch to misc.pl

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  Thu May 18 23:25:36 MET DST 1995  ---------