Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: (qmail 57166 invoked from network); 1 Jul 2004 01:41:42 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur-2.apache.org with SMTP; 1 Jul 2004 01:41:42 -0000 Received: (qmail 50698 invoked by uid 500); 1 Jul 2004 01:42:02 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 50596 invoked by uid 500); 1 Jul 2004 01:41:57 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 50552 invoked by uid 500); 1 Jul 2004 01:41:56 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org X-ASF-Spam-Status: No, hits=0.5 required=10.0 tests=ALL_TRUSTED,NO_REAL_NAME X-Spam-Check-By: apache.org Date: 1 Jul 2004 01:41:30 -0000 Message-ID: <20040701014130.57064.qmail@minotaur.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/lib/Apache ParseSource.pm X-Virus-Checked: Checked X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N stas 2004/06/30 18:41:30 Modified: lib/Apache ParseSource.pm Log: make Apache::ParseSource strict on warnings and fix issues Revision Changes Path 1.57 +4 -2 modperl-2.0/lib/Apache/ParseSource.pm Index: ParseSource.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/Apache/ParseSource.pm,v retrieving revision 1.56 retrieving revision 1.57 diff -u -u -r1.56 -r1.57 --- ParseSource.pm 18 Jun 2004 23:45:07 -0000 1.56 +++ ParseSource.pm 1 Jul 2004 01:41:29 -0000 1.57 @@ -15,6 +15,8 @@ package Apache::ParseSource; use strict; +use warnings FATAL => 'all'; + use Apache::Build (); use Config; use File::Basename; @@ -112,7 +114,7 @@ sub include_dirs { my $self = shift; - ($self->config->apxs(-q => 'INCLUDEDIR'), + ($self->config->apxs('-q' => 'INCLUDEDIR'), $self->config->mp_include_dir); } @@ -137,7 +139,7 @@ mod_proxy mod_ssl ssl_ apr_anylock apr_rmm ap_config mod_log_config mod_perl modperl_); - my $unwanted = qr|^$unwanted|; + $unwanted = qr|^$unwanted|; my $wanted = ''; push @includes, find_includes_wanted($wanted, $unwanted, @dirs);