readline() on closed filehandle main::LOG at ./netlist.pl line 510.
##</code><code>##

  my $log = "$cell".".$$"."/si.log";
  my $pwd = cwd();
  my $netlist = "$pwd"."/"."$cell".".$$"."/"."$cell".".cdl";
  
  my ($error, $done) = 0; 
  print "  Checking log files for success on $netlist\n";

  while (( ! $error ) and ( ! -f $netlist)) {
    open ( LOG, $log ) || warn "  Couldn't open log\n" if ($debug);
    while (<LOG> ){
      print "$_";
      if ( ($_ =~ m/error/i) or ($_ =~ m/warning/i) ){
        print "$_" ;
        print "$_" if ($debug) ;                
        if ($_ =~ m/error/i) {
          $error = 1;
          print "$_";
          $icfb->hard_close();
        }
      } 
    close LOG;
    } 
    sleep 2;
  }

##</code><code>##

  my $log = "$cell".".$$"."/si.log";
  my $pwd = cwd();
  my $netlist = "$pwd"."/"."$cell".".$$"."/"."$cell".".cdl";
  
  my ($error, $done) = 0; 
  print "  Checking log files for success on $netlist\n";

  while (( ! $error ) and ( ! -f $netlist)) {
    open ( LOG, $log ) || warn "  Couldn't open log\n" if ($debug);
    if ( defined (fileno LOG )) { 
      print "Defined \n";
      while (<LOG> ){
        print "$_";
        if ( ($_ =~ m/error/i) or ($_ =~ m/warning/i) ){
          print "$_" ;
          print "$_" if ($debug) ;                
          if ($_ =~ m/error/i) {
            $error = 1;
            print "$_";
            $icfb->hard_close();
          }
        }
      }
      close LOG;
    } else { print "Not Defined\n"; } 
    sleep 2;
  }