Print this page 
4853 illumos-gate is not lint-clean when built with openssl 1.0
   1 #!/usr/local/bin/perl
   2 
   3 $NUMBER=0x01;
   4 $UPPER=0x02;
   5 $LOWER=0x04;
   6 $UNDER=0x100;
   7 $PUNCTUATION=0x200;
   8 $WS=0x10;
   9 $ESC=0x20;
  10 $QUOTE=0x40;
  11 $DQUOTE=0x400;
  12 $COMMENT=0x80;
  13 $FCOMMENT=0x800;
  14 $EOF=0x08;
  15 $HIGHBIT=0x1000;
  16 
  17 foreach (0 .. 255)
  18         {
  19         $v=0;
  20         $c=sprintf("%c",$_);
  21         $v|=$NUMBER     if ($c =~ /[0-9]/);


   1 #!/usr/bin/perl
   2 
   3 $NUMBER=0x01;
   4 $UPPER=0x02;
   5 $LOWER=0x04;
   6 $UNDER=0x100;
   7 $PUNCTUATION=0x200;
   8 $WS=0x10;
   9 $ESC=0x20;
  10 $QUOTE=0x40;
  11 $DQUOTE=0x400;
  12 $COMMENT=0x80;
  13 $FCOMMENT=0x800;
  14 $EOF=0x08;
  15 $HIGHBIT=0x1000;
  16 
  17 foreach (0 .. 255)
  18         {
  19         $v=0;
  20         $c=sprintf("%c",$_);
  21         $v|=$NUMBER     if ($c =~ /[0-9]/);