steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.31,1.32

cvs at intevation.de cvs at intevation.de
Mon Aug 9 18:09:13 CEST 2004


Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-Conf
In directory doto:/tmp/cvs-serv22886/Kolab-Conf

Modified Files:
	Conf.pm 
Log Message:
eat lines with @@@if and @@@endif

Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- Conf.pm	5 Aug 2004 10:08:14 -0000	1.31
+++ Conf.pm	9 Aug 2004 16:09:11 -0000	1.32
@@ -122,10 +122,10 @@
           # Skip text
           $skip++;
         }
-        s/\@{3}if (\S+?)\@{3}//;
+        s/\@{3}if (\S+?)\@{3}\n?//;
       } elsif (/\@{3}endif\@{3}/) {
         ( $skip > 0 ) && $skip--;
-        s/\@{3}endif\@{3}//;
+        s/\@{3}endif\@{3}\n?//;
       } elsif (/\@{3}(\S+?)(\|.+?)?\@{3}/) {
 	my $attr = $1;
 	my $opt  = $2;





More information about the commits mailing list