skip commented lines in project_file

diff --git a/openocd-jtag-boundary-scan.pl b/openocd-jtag-boundary-scan.pl
index 3634bbe..d16f465 100755 (executable)
--- a/openocd-jtag-boundary-scan.pl
+++ b/openocd-jtag-boundary-scan.pl
@@ -127,6 +127,7 @@ foreach my $pin_file ( glob "pins/$entity*.tsv" ) {
        while(<$fh>) {
                chomp;
                s/[\r\n]+$//;
+               next if m/^\s*#/;
                my ($set,$pin, $op, $desc) = split(/\s+/,$_,4);
                if ( $set =~ m/set_location_assignment/i && $op =~ m/-to/i && $pin =~ s/^PIN_//ig ) {
                        $pin_desc->{$pin} = $desc; # overwrite pin description