Tiny fix in vcdcd.pl
authorClifford Wolf <clifford@clifford.at>
Tue, 13 Jan 2015 11:59:29 +0000 (12:59 +0100)
committerClifford Wolf <clifford@clifford.at>
Tue, 13 Jan 2015 11:59:29 +0000 (12:59 +0100)
tests/tools/vcdcd.pl

index 2abfb7a21b0816bdb3aa35df9df350482c4a8ca4..6f497e99c71209b2bafe414a84c3b5761a031039 100755 (executable)
@@ -80,8 +80,8 @@ for my $net (sort keys %gold_signals_hash) {
        for my $fullname (keys $gate_signals_hash{$net}) {
                $orig_net_names{$fullname} = 1;
        }
-       for my $_ (sort keys %orig_net_names) {
-               push @signals, $_;
+       for my $net (sort keys %orig_net_names) {
+               push @signals, $net;
                print " $1" if /(\[([0-9]+|[0-9]+:[0-9]+)\])$/;
        }
        print "\n";