Select Code to Download

    my ( $moduleName, $netName, @gateInst, $gate, $netCap,
         $violation, @maxTrans, $worstTrans, $line );

my $rpt = $drc::flag ? \%drc::rpt1 : \%drc::rpt2;
$rpt->{$moduleName}{$netName}{$gate}{"Capacitance"} = $violation;

if ( $drc::file1[$i] =~ m/^\s*\Module:/i ) {
    $moduleName = getModuleName ( $drc::file1[$i] ) ;
}
# could become
 $moduleName = getModuleName ( $item )      if ( $item =~ m/^\s*\Modul
+e:/i );