view release on metacpan or  search on metacpan

lib/App/Options.pm  view on Meta::CPAN

                    print STDERR "      ", ($exclude_section ? "[ignore]" : "[use]   "), " $orig_line\n" if ($debug_options >= 5);
                }
                next if ($exclude_section);

                s/#.*$//;        # delete comments
                s/^\s+//;         # delete leading spaces
                s/\s+$//;         # delete trailing spaces
                next if (/^$/);  # skip blank lines

                # look for "var = value" (ignore other lines)
                if (/^([^\s=]+)\s*=\s*(.*)/) {  # untainting also happens
                    $var = $1;
                    $value = $2;

                    if (!$is_mod_perl) {
                        if ($var eq "perl_restart" && $value && $value ne "1") {
                            foreach my $env_var (split(/,/,$value)) {
                                if (!$ENV{$env_var}) {
                                    $value = 1;
                                    last;
                                }