From: michael Date: Sun, 21 May 2006 23:07:19 +0000 (+0000) Subject: specifically filter out comments X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/snom-frontend/commitdiff_plain/5803d7706a54497d909980ba037392ed49d8bfe1 specifically filter out comments --- diff --git a/snom.pl b/snom.pl index b34ab64..8062aaf 100755 --- a/snom.pl +++ b/snom.pl @@ -1,5 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.21 2006-05-21 23:06:48 michael Exp $ +#$Id: snom.pl,v 1.22 2006-05-21 23:07:19 michael Exp $ PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@" @@ -22,6 +22,9 @@ my %Config = (); my @sections = (); while() { chomp; + + next if (m/^#/); + if (m/^\s*\[(.*)\]\s*$/) { push @sections, $1; next;