Subversion Repositories DevTools

Rev

Rev 7460 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7460 Rev 7469
Line 98... Line 98...
98 
    my $ignored;
 98 
    my $ignored;
99 
 
 99 
 
100 
    if ( open my $fh, $conffile )
 100 
    if ( open my $fh, $conffile )
101 
    {
 101 
    {
102 
        while (<$fh>) {
 102 
        while (<$fh>) {
103 
            next if /^[\t\w]+#/;
 103 
            next if /^[\t\w]*#/;
104 
            s/#.*//;
 104 
            s/\s+#.*//;
105 
 
 105 
 
106 
            my ($key, $val) = trimstr split '=', $_, 2;
 106 
            my ($key, $val) = trimstr split '=', $_, 2;
107 
            next unless defined $val;
 107 
            next unless defined $val;
108 
 
 108 
 
109 
            #
 109 
            #