From 1cc60e6f1b89bc27d59c1feb8d292e94087c6a98 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 6 Jul 2016 11:37:42 +0200
Subject: [PATCH] skip commented lines in project_file

---
 openocd-jtag-boundary-scan.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/openocd-jtag-boundary-scan.pl b/openocd-jtag-boundary-scan.pl
index 3634bbe..d16f465 100755
--- 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
-- 
2.20.1