I've patched PgCommon.pm to correct this :

I hope I can send attachment, so here it is.

85,86c85,86
<     if (open F, $_[0]) {
<         while (<F>) {
---
>     if (open my $file, $_[0]) {
>         while (<$file>) {
97a98,104
>             } elsif (/^\s*include\s*'(.*)'\s*$/) {
>               # include line. We need to recurse and append/replace hash 
> content
>               my $include=$1;
>                 my %additional_conf=read_conf_file($include);
>               while( my ($key,$value)=each(%additional_conf)) {
>                   $conf{$key}=$value;
>                 }
102c109
<         close F;
---
>         close $file;
106d112
< 

Reply via email to