From: Bdale Garbee <bdale@gag.com>
Date: Wed, 24 Dec 2008 01:30:48 +0000 (-0700)
Subject: fix for regexp problem when pcb is named
X-Git-Tag: fab-v0.1~6
X-Git-Url: https://git.gag.com/?p=hw%2Ftelemetrum;a=commitdiff_plain;h=cb0a35fe114603e9482e9dad4dd3e6447911fb2a

fix for regexp problem when pcb is named
---

diff --git a/pcb2panel b/pcb2panel
old mode 100644
new mode 100755
index e517c01..63206dc
--- a/pcb2panel
+++ b/pcb2panel
@@ -5,7 +5,7 @@
 # Released under the terms of the GNU General Public License, version 2
 
 if (! @ARGV) {
-    print "Usage: pcb2panel board1.pcb board2.pcb board3.pcb > boards.pcb";
+    print "Usage: pcb2panel board1.pcb board2.pcb board3.pcb > boards.pcb\n";
     print "Then edit boards.pcb, putting each outline where you want it\n";
     print "and sizing the board.  Then:\n";
     print "panel2pcb boards.pcb\n";
@@ -21,7 +21,7 @@ for $pcb (@ARGV) {
     push (@pcbs, $pcb);
     open(PCB, $pcb);
     while (<PCB>) {
-	if (/^PCB\["" (\d+) (\d+)\]/) {
+	if (/^PCB\[".*" (\d+) (\d+)\]/) {
 	    $width{$pcb} = $1;
 	    $height{$pcb} = $2;
 	    break;