[Qsos-commits] qsos/tools/createemptysheet createemptysheet.pl

[Goneri Le Bouder]

CVSROOT:        /sources/qsos
Module name:    qsos
Changes by:     Goneri Le Bouder <goneri>       06/12/07 23:30:24

Modified files:
        tools/createemptysheet: createemptysheet.pl 

Log message:
        support the <include section="foo"></include> syntaxe

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qsos/tools/createemptysheet/createemptysheet.pl?cvsroot=qsos&r1=1.2&r2=1.3

Patches:
Index: createemptysheet.pl
===================================================================
RCS file: /sources/qsos/qsos/tools/createemptysheet/createemptysheet.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- createemptysheet.pl 30 Nov 2006 19:10:58 -0000      1.2
+++ createemptysheet.pl 7 Dec 2006 23:30:24 -0000       1.3
@@ -32,7 +32,7 @@
 close QTPL;
 
 while (my $line = shift @buff) {
-  if ($line =~ /<include\W+section="([-\w]+)"\W*\/>/) { # this is an include
+  if ($line =~ /<include\W+section="([-\w]+)"\W*(|\/)>/) { # this is an include
 #    print STDERR "Including $1\n";
     open INCLUDE, "<$includedir/$1.qin" or die "Failed to open includefile
     $1.qin";