Subject: | [PATCH] Makefile.PL: fix @ARGV processing, so that PRINT_PREREQ works |
Date: | Wed, 15 Nov 2006 03:55:24 +0300 |
To: | bug-xml-libxml [...] rt.cpan.org |
From: | Alexey Tourbin <at [...] altlinux.ru> |
Before now, 'perl Makefile.PL PRINT_PREREQ' did not work.
You should take only those of @ARGV parameters which you expect to process.
---
Makefile.PL | 11 ++++++++++-
1 files changed, 10 insertions(+), 1 deletions(-)
diff --git a/Makefile.PL b/Makefile.PL
index 4904a9e..6f8b53e 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -39,10 +39,19 @@ my %INFOS = (
# -------------------------------------------------------------------------- #
# read extra configurations from the commandline
+my %params = map { $_ => 1 }
+ qw(DEBUG DEFINE EXTRALIBDIR GDOME INC LIBS SKIP_SAX_INSTALL XMLPREFIX);
+my @argv;
while($_ = shift) {
my ($key, $val) = split(/=/, $_, 2);
- $config{$key} = $val;
+ if ($params{$key}) {
+ $config{$key} = $val;
+ }
+ else {
+ push @argv, $_;
+ }
}
+@ARGV = @argv;
$extralibdir = $config{EXTRALIBDIR};
delete $config{EXTRALIBDIR};
--
1.4.3.GIT