From c5abaf0da837edac35aa76d4da5ce49abc1a7df1 Mon Sep 17 00:00:00 2001
From: zimoch <zimoch>
Date: Mon, 15 Apr 2013 15:20:42 +0000
Subject: [PATCH] check was too strict: comma before closing brace is not nice
 but legal

---
 dbLoadTemplate | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/dbLoadTemplate b/dbLoadTemplate
index 8ab8245..78d09a0 100755
--- a/dbLoadTemplate
+++ b/dbLoadTemplate
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-# $Header: /cvs/G/EPICS/App/scripts/dbLoadTemplate,v 1.7 2013/02/26 14:35:08 zimoch Exp $
+# $Header: /cvs/G/EPICS/App/scripts/dbLoadTemplate,v 1.8 2013/04/15 15:20:42 zimoch Exp $
 
 use strict;
 
@@ -140,7 +140,7 @@ sub parseSubst {
                 my $macro;
                 $macro = expect "$WORD|,|} macro name";
                 # one comma allowed
-                if ($_ eq ",") {$macro = expect "$WORD macro name";}
+                if ($_ eq ",") {$macro = expect "$WORD|} macro name";}
                 last if $_ eq '}';
                 expect "=", "$STRING|$SUBST value for $macro";
                 $subst{$macro} = $_;
@@ -155,7 +155,7 @@ sub parseSubst {
         while (1) {
             expect "$WORD|,|} macro name";
             # one comma allowed
-            if ($_ eq ",") {expect "$WORD macro name";}
+            if ($_ eq ",") {expect "$WORD|} macro name";}
             last if $_ eq '}';
             push @macros, $_;
         };