Author: richter Date: Thu Sep 21 04:07:13 2023 New Revision: 1912446 URL: http://svn.apache.org/viewvc?rev=1912446&view=rev Log: fix indention
Modified: perl/embperl/trunk/Makefile.PL Modified: perl/embperl/trunk/Makefile.PL URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Makefile.PL?rev=1912446&r1=1912445&r2=1912446&view=diff ============================================================================== --- perl/embperl/trunk/Makefile.PL (original) +++ perl/embperl/trunk/Makefile.PL Thu Sep 21 04:07:13 2023 @@ -112,12 +112,12 @@ sub MY::test_via_harness my ($txt) = shift -> MM::test_via_harness (@_) ; $txt =~ s/PERL_DL_NONLAZY=1/PERL_DL_NONLAZY=0/ ; if ($win32) + { + if (!($txt =~ s/\$\(FULLPERL\)/SET PATH=\$\(PATH\)\;$EPENVPATH\n\t\$\(FULLPERL\)/ )) { - if (!($txt =~ s/\$\(FULLPERL\)/SET PATH=\$\(PATH\)\;$EPENVPATH\n\t\$\(FULLPERL\)/ )) - { - $txt =~ s/\$\(FULLPERLRUN\)/SET PATH=\$\(PATH\)\;$EPENVPATH\n\t\$\(FULLPERLRUN\)/ - } + $txt =~ s/\$\(FULLPERLRUN\)/SET PATH=\$\(PATH\)\;$EPENVPATH\n\t\$\(FULLPERLRUN\)/ } + } return $txt ; } @@ -126,12 +126,12 @@ sub MY::test_via_script my ($txt) = shift -> MM::test_via_script (@_) ; $txt =~ s/PERL_DL_NONLAZY=1/PERL_DL_NONLAZY=0/ ; if ($win32) + { + if (!($txt =~ s/\$\(FULLPERL\)/SET PATH=\$\(PATH\)\;$EPENVPATH\n\t\$\(FULLPERL\)/ )) { - if (!($txt =~ s/\$\(FULLPERL\)/SET PATH=\$\(PATH\)\;$EPENVPATH\n\t\$\(FULLPERL\)/ )) - { - $txt =~ s/\$\(FULLPERLRUN\)/SET PATH=\$\(PATH\)\;$EPENVPATH\n\t\$\(FULLPERLRUN\)/ - } + $txt =~ s/\$\(FULLPERLRUN\)/SET PATH=\$\(PATH\)\;$EPENVPATH\n\t\$\(FULLPERLRUN\)/ } + } $txt =~ s/\$\(TEST_FILE\)/\$(TEST_FILE) \$(TESTARGS)/g ; return $txt ; @@ -176,18 +176,17 @@ stop : pure_all } ; $txt =~ s/\tPERL_DL_NONLAZY=0 /\tSET PATH=\$\(PATH\)\;$EPENVPATH\n\t/g if ($win32) ; - $txt =~ s/\@cd/\n#\t\@cd/ ; # remove tests for subdirs - $txt =~ s/\$\(NOECHO\) cd/\n#\t\$\(NOECHO\) cd/ ; # remove tests for subdirs + $txt =~ s/\@cd/\n#\t\@cd/ ; # remove tests for subdirs + $txt =~ s/\$\(NOECHO\) cd/\n#\t\$\(NOECHO\) cd/ ; # remove tests for subdirs - $txt =~ s/(\$\(NOECHO\) \$\(ABSPERLRUN\) \-e \'chdir)/\n#$1/ ; # remove tests for subdirs - $txt =~ s/-e/\n# -e/g ; # remove tests for subdirs + $txt =~ s/(\$\(NOECHO\) \$\(ABSPERLRUN\) \-e \'chdir)/\n#$1/ ; # remove tests for subdirs + $txt =~ s/-e/\n# -e/g ; # remove tests for subdirs $txt =~ s/\r\n/\n/g ; # make doesn't like \r\n! - - return $txt ; - } + return $txt ; + } @@ -212,47 +211,47 @@ sub MY::dist_test { my $self = shift ; - my $txt = $self -> MM::dist_test (@_) ; + my $txt = $self -> MM::dist_test (@_) ; $txt =~ s/-I\$\(PERL_ARCHLIB\) -I\$\(PERL_LIB\)// ; $txt =~ s/\$\(PERL\)/\$\(PERLDT\)/ ; $txt =~ s/\$\(ABSPERLRUN\)/\$\(PERLDT\)/ ; - $main::perlbinpath = $self -> {FULLPERL} ; - - return $txt ; + $main::perlbinpath = $self -> {FULLPERL} ; + + return $txt ; } sub MY::dynamic { my $self = shift ; - my $txt = $self -> MM::dynamic (@_) ; + my $txt = $self -> MM::dynamic (@_) ; - $txt .= "\tcd crypto && \$(MAKE) SSL_BASE=$sslbase\n" if ($epc_enable) ; - - return $txt ; + $txt .= "\tcd crypto && \$(MAKE) SSL_BASE=$sslbase\n" if ($epc_enable) ; + + return $txt ; } sub MY::c_o { my $self = shift ; - my $txt = $self -> MM::c_o (@_) ; - my $opt = $win32?'Fo':'o ' ; + my $txt = $self -> MM::c_o (@_) ; + my $opt = $win32?'Fo':'o ' ; - $txt =~ s/\$\*/-$opt\$*\$(OBJ_EXT) \$*/g ; - my @txt = split (/\n/, $txt) ; - my $cpp = 0 ; - foreach (@txt) + $txt =~ s/\$\*/-$opt\$*\$(OBJ_EXT) \$*/g ; + my @txt = split (/\n/, $txt) ; + my $cpp = 0 ; + foreach (@txt) + { + if (/\$\*\.cpp/) { - if (/\$\*\.cpp/) - { - s/\$\(CCCMD\)/\$(CPPCMD) \$(CPPFLAGS)/ ; - } + s/\$\(CCCMD\)/\$(CPPCMD) \$(CPPFLAGS)/ ; } - $txt = join ("\n", @txt) ; + } + $txt = join ("\n", @txt) ; - return $txt ; + return $txt ; } @@ -261,23 +260,23 @@ sub MY::cflags { my $self = shift ; - my $txt = $self -> MM::cflags (@_) ; + my $txt = $self -> MM::cflags (@_) ; - if ($mp2cfg) - { # with Apache 2, make sure we have the same defines as mod_perl - $txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ; - $txt =~ /CCFLAGS\s*=(.*?)\n/s ; - my $flags = $mp2cfg->{MODPERL_CCOPTS} || $1 ; - $txt =~ s/CCFLAGS\s*=(.*?)\n/CCFLAGS = $ccdebug $flags $addcflags\n/s ; - } - else - { - $txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ; - $txt =~ s/CCFLAGS\s*=/CCFLAGS = $ccdebug $addcflags/ ; - } + if ($mp2cfg) + { # with Apache 2, make sure we have the same defines as mod_perl + $txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ; + $txt =~ /CCFLAGS\s*=(.*?)\n/s ; + my $flags = $mp2cfg->{MODPERL_CCOPTS} || $1 ; + $txt =~ s/CCFLAGS\s*=(.*?)\n/CCFLAGS = $ccdebug $flags $addcflags\n/s ; + } + else + { + $txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ; + $txt =~ s/CCFLAGS\s*=/CCFLAGS = $ccdebug $addcflags/ ; + } - - return $txt ; + + return $txt ; } $MY::cccmd_seen = 0 ; @@ -285,72 +284,71 @@ sub MY::const_cccmd { my $self = shift ; - my $txt = $self -> MM::const_cccmd (@_) ; - return $txt if ($MY::cccmd_seen++) ; + my $txt = $self -> MM::const_cccmd (@_) ; + return $txt if ($MY::cccmd_seen++) ; my $txt2 = $txt ; - $txt2 =~ s/\$\(CC\)/\$(CPP)/ ; - $txt2 =~ s/CCCMD/CPPCMD/ ; + $txt2 =~ s/\$\(CC\)/\$(CPP)/ ; + $txt2 =~ s/CCCMD/CPPCMD/ ; - return "$txt\n\n$txt2" ; + return "$txt\n\n$txt2" ; } - sub MY::post_initialize - { - my $self = shift ; +sub MY::post_initialize + { + my $self = shift ; - # move docs to the right place - - my $pm = $self -> {PM} ; - my $k ; - my $v ; - while (($k, $v) = each (%$pm)) + # move docs to the right place + + my $pm = $self -> {PM} ; + my $k ; + my $v ; + while (($k, $v) = each (%$pm)) + { + if (($k =~ /\.pod$/) && !($k =~ /^Embperl/) ) { - if (($k =~ /\.pod$/) && !($k =~ /^Embperl/) ) - { - $v =~ s#^(.*/)(.*?)\.pod$#$1Embperl/$2.pod# ; - $pm -> {$k} = $v ; - } + $v =~ s#^(.*/)(.*?)\.pod$#$1Embperl/$2.pod# ; + $pm -> {$k} = $v ; } - - my $man = $self -> {MAN3PODS} ; - while (($k, $v) = each (%$man)) + } + + my $man = $self -> {MAN3PODS} ; + while (($k, $v) = each (%$man)) + { + if ($v !~ /Embperl/) { - if ($v !~ /Embperl/) - { - $v =~ s,/([^/]+)$,/Embperl::$1, ; - $man -> {$k} = $v ; - } - } + $v =~ s,/([^/]+)$,/Embperl::$1, ; + $man -> {$k} = $v ; + } + } - foreach my $hash (qw(MAN3PODS PM)) - { - foreach (keys %{$self->{$hash}}) - { - delete $self->{$hash}{$_} - if /^(INSTALL|NEWS|Changes)|\.pl$/ ; - } - } - + foreach my $hash (qw(MAN3PODS PM)) + { + foreach (keys %{$self->{$hash}}) + { + delete $self->{$hash}{$_} + if /^(INSTALL|NEWS|Changes)|\.pl$/ ; + } + } - $self -> MM::post_initialize (@_) ; - } + $self -> MM::post_initialize (@_) ; + } - sub MY::post_constants - { - my $self = shift ; +sub MY::post_constants + { + my $self = shift ; - my $txt = $self -> MM::post_constants (@_) ; + my $txt = $self -> MM::post_constants (@_) ; - $txt .= "\n# Change name of dynamic lib, in case we need two of them (with and w/o Apache support)\nINST_DYNAMIC = \$(INST_ARCHAUTODIR)\\\$(DLBASE).NoApache.\$(DLEXT)\n" if ($EPNOAPACHELIB) ; + $txt .= "\n# Change name of dynamic lib, in case we need two of them (with and w/o Apache support)\nINST_DYNAMIC = \$(INST_ARCHAUTODIR)\\\$(DLBASE).NoApache.\$(DLEXT)\n" if ($EPNOAPACHELIB) ; - return $txt ; + return $txt ; - } + } ## ---------------------------------------------------------------------------- @@ -361,7 +359,7 @@ sub GetString printf ("%s [%s]", $prompt, $default) ; chomp ($_ = <STDIN>) ; s/\s+$//; - if (!/^\s*$/) + if (!/^\s*$/) {return $_ ;} else { @@ -369,7 +367,6 @@ sub GetString {return $default ;} else { return "" ; } - } } @@ -393,11 +390,9 @@ sub GetYesNo ## ---------------------------------------------------------------------------- sub search_config - { my ($key, $path) = @_ ; - open CFGFH, $path or return undef ; while (<CFGFH>) @@ -413,7 +408,6 @@ sub search_config sub cnvpath - { my $path = shift ; @@ -579,17 +573,17 @@ if (!$apache && $apache_src eq '') print "Found mod_perl 2.0\n" ; } else - { + { eval 'use Apache2::BuildConfig' ; if ($@ eq '') { - $mp2Apache2 = 1 ; + $mp2Apache2 = 1 ; $mp2cfg = Apache2::BuildConfig -> new ; $apache_src = $mp2cfg -> {MP_AP_PREFIX} || $mp2cfg -> {ap_includedir} ; print "Found mod_perl 2.0\n" ; - } - else + } + else { eval 'use Apache::MyConfig' ; @@ -601,7 +595,7 @@ if (!$apache && $apache_src eq '') { $apache_src = '' ; } - } + } } } elsif ($apache_src ne '' && -X "$apache_src/bin/httpd") @@ -609,7 +603,7 @@ elsif ($apache_src ne '' && -X "$apache_ my @vers = start ("\"$apache_src/bin/httpd\" -v") ; if ($vers[0] =~ m#/2#) - { + { # check for mod_perl 2.0 eval 'use Apache2; use Apache::BuildConfig' ; @@ -617,18 +611,18 @@ elsif ($apache_src ne '' && -X "$apache_ { $mp2cfg = Apache::BuildConfig -> new ; print "Found mod_perl 2.0\n" ; - } + } else - { + { eval 'use Apache2::BuildConfig' ; if ($@ eq '') { - $mp2Apache2 = 1 ; + $mp2Apache2 = 1 ; $mp2cfg = Apache2::BuildConfig -> new ; print "Found mod_perl 2.0\n" ; + } } - } } } @@ -651,13 +645,13 @@ $apache = GetYesNo ("Build with support if ($apache && $apache_src ne '') { if ($apache_src =~ /^(.*?)\/$/) - { $apache_src = $1 ; } + { $apache_src = $1 ; } if ($apache_src =~ /^(.*?)\/main$/) - { $apache_src = $1 ; } + { $apache_src = $1 ; } if ($apache_src =~ /^(.*?)\/include$/) - { $apache_src = $1 ; } + { $apache_src = $1 ; } if (-e "$apache_src/httpd.h" || -e "$apache_src/main/httpd.h" || -e "$apache_src/include/httpd.h") { @@ -675,27 +669,27 @@ while ($apache && !$b) <$base\\apache*\\apache*\\include>, <./src>) { - print "Look at $src_dir\n" ; - - if (-e "$src_dir/httpd.h" || -e "$src_dir/main/httpd.h" || -e "$src_dir/include/httpd.h") - { - $b = GetYesNo ("Use $src_dir as Apache source", 'y') ; - if ($b) - { - $apache_src = $src_dir ; - last ; - } - } - } + print "Look at $src_dir\n" ; + + if (-e "$src_dir/httpd.h" || -e "$src_dir/main/httpd.h" || -e "$src_dir/include/httpd.h") + { + $b = GetYesNo ("Use $src_dir as Apache source", 'y') ; + if ($b) + { + $apache_src = $src_dir ; + last ; + } + } + } if ($apache_src =~ /^(.*?)\/$/) - { $apache_src = $1 ; } + { $apache_src = $1 ; } if ($apache_src =~ /^(.*?)\/main$/) - { $apache_src = $1 ; } + { $apache_src = $1 ; } if ($apache_src =~ /^(.*?)\/include$/) - { $apache_src = $1 ; } + { $apache_src = $1 ; } if (!$b) @@ -736,10 +730,9 @@ if ($b && $apache && $apache_src ne '') { $inc_dir = "$ENV{APACHE_HDR}" ; } - if ($win32) - { + { $i = "-I. -I\"$inc_dir\" -I\"$apache_src/regex\" -I\"$apache_src/os/win32\"" ; foreach ( @@ -779,15 +772,15 @@ if ($b && $apache && $apache_src ne '') } else - { + { $i = "-I$inc_dir -I$apache_src/regex -I$apache_src/os/unix" ; $o = '' ; } if ($mp2cfg && !-f "$inc_dir/apr.h") - { - $i .= " -I$mp2cfg->{apr_includedir}" ; - } + { + $i .= " -I$mp2cfg->{apr_includedir}" ; + } $d .= ' -DAPACHE' ; $d .= ' -DAPACHE2' if ($mp2cfg) ; @@ -802,7 +795,6 @@ else $EPNOAPACHELIB = GetYesNo ("Do you want to build a separate dynamic library for use without Apache?", 'y') ; } - print "Will build without mod_perl support\n" ; $i = '' ; $o = '' ; @@ -827,13 +819,13 @@ EOF close DEFH; if ($ENV{APACHE_PERL_DLL}) - { - $mpdll = $ENV{APACHE_PERL_DLL} ; - } + { + $mpdll = $ENV{APACHE_PERL_DLL} ; + } elsif ($EPMODPERL =~ /^LoadModule perl_module (.*?)$/) - { - $mpdll = $1 ; - } + { + $mpdll = $1 ; + } } # @@ -869,21 +861,21 @@ if ($b && $apache) $EPHTTPD = "$apache_src/httpsd" if (!-e $EPHTTPD && -e "$apache_src/httpsd") ; $EPHTTPD = "$apache_src/bin/httpd" if (!-e $EPHTTPD && -e "$apache_src/bin/httpd") ; - if (!-e $EPHTTPD && $mp2cfg) - { - my $sbindir = `$mp2cfg->{MP_APXS} -q SBINDIR` ; - chomp ($sbindir) ; - $EPHTTPD = "$sbindir/httpd" ; - $EPHTTPD = "$sbindir/httpd2" if (-e "$sbindir/httpd2") ; - $EPHTTPD = "$sbindir/apache2" if (-e "$sbindir/apache2") ; - } - + if (!-e $EPHTTPD && $mp2cfg) + { + my $sbindir = `$mp2cfg->{MP_APXS} -q SBINDIR` ; + chomp ($sbindir) ; + $EPHTTPD = "$sbindir/httpd" ; + $EPHTTPD = "$sbindir/httpd2" if (-e "$sbindir/httpd2") ; + $EPHTTPD = "$sbindir/apache2" if (-e "$sbindir/apache2") ; + } + if (!-e $EPHTTPD) { $EPHTTPD = GetString ("Enter path and file to start as httpd", "$EPHTTPD") ; } - $EPMODPERL="" ; + $EPMODPERL="" ; } else { @@ -927,116 +919,113 @@ if ($b && $apache) $addmodpath = $mp2cfg?$mp2cfg -> {MODPERL_AP_LIBEXECDIR}:'' ; if ($addmodpath && $mpm) - { - # openSuSE has some modules in special directory for MPM - $mpm =~ /Server MPM:\s+(.+)$/ ; - $addmodpath2 = $addmodpath . '-' . lc($1) ; - } + { + # openSuSE has some modules in special directory for MPM + $mpm =~ /Server MPM:\s+(.+)$/ ; + $addmodpath2 = $addmodpath . '-' . lc($1) ; + } delete $neededmodules{'prefork.c'} if (!$mp2cfg) ; while (($mod, $opt) = each %neededmodules) - { - if (!grep (/$mod/, @modules)) - { # module not linked statically - $paths = $win32?$opt->{win32path}:$opt->{path} ; - $modfile = $win32?$opt->{win32file}:$opt->{file}[0] ; - $modfiletext = ($win32?$opt->{win32filetext}:$opt->{filetext}) || $modfile ; - $found = 2 ; - searchmod: + { + if (!grep (/$mod/, @modules)) + { # module not linked statically + $paths = $win32?$opt->{win32path}:$opt->{path} ; + $modfile = $win32?$opt->{win32file}:$opt->{file}[0] ; + $modfiletext = ($win32?$opt->{win32filetext}:$opt->{filetext}) || $modfile ; + $found = 2 ; + searchmod: while ($found == 2) - { - $found = 0 ; - if ($addmodpath) - { + { + $found = 0 ; + if ($addmodpath) + { foreach $modfile (@{$opt->{file}}) { - $path = cnvpath ("$addmodpath/$modfile") ; - #print "path = $_ -> $path\n" ; - if (-f $path) - { ## module found - $EPMODPERL .= "\r\nLoadModule ". ($mp2cfg?($opt->{name2} || $opt->{name}):$opt->{name}) . " \"$path\"" ; - print " + Load dynamic module $mod\n ($path)\n" ; - $found = 1 ; - last searchmod ; - } - } + $path = cnvpath ("$addmodpath/$modfile") ; + #print "path = $_ -> $path\n" ; + if (-f $path) + { ## module found + $EPMODPERL .= "\r\nLoadModule ". ($mp2cfg?($opt->{name2} || $opt->{name}):$opt->{name}) . " \"$path\"" ; + print " + Load dynamic module $mod\n ($path)\n" ; + $found = 1 ; + last searchmod ; + } + } } - if ($addmodpath2) - { + if ($addmodpath2) + { foreach $modfile (@{$opt->{file}}) { - $path = cnvpath ("$addmodpath2/$modfile") ; - #print "path = $_ -> $path\n" ; - if (-f $path) - { ## module fould - $EPMODPERL .= "\r\nLoadModule ". ($mp2cfg?($opt->{name2} || $opt->{name}):$opt->{name}) . " \"$path\"" ; - print " + Load dynamic module $mod\n ($path)\n" ; - $found = 1 ; - last searchmod ; - } - } + $path = cnvpath ("$addmodpath2/$modfile") ; + #print "path = $_ -> $path\n" ; + if (-f $path) + { ## module fould + $EPMODPERL .= "\r\nLoadModule ". ($mp2cfg?($opt->{name2} || $opt->{name}):$opt->{name}) . " \"$path\"" ; + print " + Load dynamic module $mod\n ($path)\n" ; + $found = 1 ; + last searchmod ; + } + } + } + foreach (@$paths) + { + $path = cnvpath (eval "\"$_\"") ; + #print "path = $_ -> $path\n" ; + if (-f $path) + { ## module fould + $EPMODPERL .= "\r\nLoadModule $opt->{name} \"$path\"" ; + print " + Load dynamic module $mod\n ($path)\n" ; + $found = 1 ; + last ; + } } - foreach (@$paths) - { - $path = cnvpath (eval "\"$_\"") ; - #print "path = $_ -> $path\n" ; - if (-f $path) - { ## module fould - $EPMODPERL .= "\r\nLoadModule $opt->{name} \"$path\"" ; - print " + Load dynamic module $mod\n ($path)\n" ; - $found = 1 ; - last ; - } - } if (!$found && $loadmodules) { if ($loadmodules =~ /LoadModule $opt->{name} \"(.*?)\"$/) { $path = $1 ; - if (-f $path) - { ## module fould - $EPMODPERL .= "\r\nLoadModule $opt->{name} \"$path\"" ; - print " + Load dynamic module $mod\n ($path)\n" ; - $found = 1 ; - last ; - } + if (-f $path) + { ## module fould + $EPMODPERL .= "\r\nLoadModule $opt->{name} \"$path\"" ; + print " + Load dynamic module $mod\n ($path)\n" ; + $found = 1 ; + last ; + } } } if (!$found && !$opt -> {optional}) - { - my $w32msg = '' ; - $w32msg = "\nPlease enter full path including the drive letter!! " if ($win32) ; - $addmodpath = GetString ("Library for $mod not found, please enter path to $modfiletext $w32msg", "") ; - $found = 2 ; - } - } - } - } - - - + { + my $w32msg = '' ; + $w32msg = "\nPlease enter full path including the drive letter!! " if ($win32) ; + $addmodpath = GetString ("Library for $mod not found, please enter path to $modfiletext $w32msg", "") ; + $found = 2 ; + } + } + } + } $use_dso = 0 ; if (!$win32 && ($EPMODPERL =~ /perl_module/)) - { + { print " + mod_perl was build with USE_DSO\n" ; - $use_dso = 1 ; + $use_dso = 1 ; } if ($mp2cfg) { - if ($mp2Apache2) - { + if ($mp2Apache2) + { require Apache2::Build ; $dynlib->{'OTHERLDFLAGS'} = Apache2::Build->new->otherldflags ; - } - else - { + } + else + { require Apache::Build ; $dynlib->{'OTHERLDFLAGS'} = Apache::Build->new->otherldflags ; - } + } } else { @@ -1063,24 +1052,22 @@ if ($b && $apache) $EPSSLDISABLE = $mp2cfg?0:!start_errcode ("\"$EPHTTPD\" -t -f $EPPATH/test/conf/ssldisable.conf") ; } - - if ($EPSTRONGHOLD) { my $conf = "$apache_src/../conf/httpd.conf"; if(-e $conf) { - open FH, $conf; - while(<FH>) - { - if(/^StrongholdKey/) + open FH, $conf; + while(<FH>) + { + if(/^StrongholdKey/) { chomp ; - $EPSTRONGHOLDKEY = $_; - last; - } - } - close FH; + $EPSTRONGHOLDKEY = $_; + last; + } + } + close FH; } } else @@ -1163,14 +1150,14 @@ if ($b && $apache) } if (my $CGIVer = CheckModule ("CGI", "-> File Upload will not work without CGI.pm installed")) - { + { $CGIVer =~ /(\d+)\.(\d+)/ ; - if ($1 < 2 || ($1 == 2 && $2 < 43)) - { - print "-> File Upload will not work with CGI.pm < 2.43, please upgrade!\n" ; - } + if ($1 < 2 || ($1 == 2 && $2 < 43)) + { + print "-> File Upload will not work with CGI.pm < 2.43, please upgrade!\n" ; + } - } ; + } ; ### write out test configuration file ### @@ -1206,9 +1193,6 @@ if ($b && $apache) { print FH "\$EPNULL='/dev/null';\n" ; } - - - } else { @@ -1285,7 +1269,6 @@ if ($win32) $d .= ' -D_WINDOWS '; $d .= ' -DMULTIPLICITY' if ($Config{usemultiplicity}) ; - } $d .= ' -DEP2' if ($EP2) ; @@ -1339,10 +1322,8 @@ if ($EP2) } } } - } - close FH ; $i .= " -I$EPPATH/xs" ; --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org