[svn:mod_parrot] r220 - mod_parrot/branches/particle-win32

Author: jhorwitz
Date: Mon Jan 16 06:43:20 2006
New Revision: 220

Modified:
   mod_parrot/branches/particle-win32/Configure.pl
Log:
minor changes to fix configuration on windows


Modified: mod_parrot/branches/particle-win32/Configure.pl
==============================================================================
--- mod_parrot/branches/particle-win32/Configure.pl	(original)
+++ mod_parrot/branches/particle-win32/Configure.pl	Mon Jan 16 06:43:20 2006
@@ -127,7 +127,7 @@ $args{perl} = $^X;
 GetOptions( \%args,
 	qw( help version verbose prefix ask ),
 	'debugging=i',
-	'parrot-build-dir=s',
+	'parrot-build-dir=s' => \$args{parrot_build_dir},
 	'apxs=s',
 	'perl=s',
 ) or die "error while parsing options: $!";
@@ -254,9 +254,8 @@ sub generate_makefile
 		qw( cflags ldflags libs apxs perl
 		parrot_source parrot apache_include_dir );
 
-	for my $token ( @vars )
-	{
-		$template =~ s/(?gx) \@ uc($token) \@ /$args{lc($token)}/;
+	for my $token ( @vars ) {
+		$template =~ s/\@ uc($token) \@ /$args{lc($token)}/gx;
 	}
 #	$template =~ s/\@CFLAGS\@/$args{cflags}/g;
 #	$template =~ s/\@LDFLAGS\@/$args{ldflags}/g;