Changeset 26256 for trunk/psconfig/pscheckperl
- Timestamp:
- Nov 22, 2009, 2:52:46 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/psconfig/pscheckperl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psconfig/pscheckperl
r25893 r26256 78 78 if ($line =~ m|^\s*\#|) { next; } 79 79 80 ($N, $module, $tarball, $modver, $prompts) = split (" ", $line); 80 $Nvalue = ($N, $module, $tarball, $modver, $buildopts, $prompts) = split (" ", $line); 81 if ($Nvalue < 6) { 82 print "Error in perl module config line $line\n"; 83 exit 1; 84 } 85 # print "N: $N, module: $module, tarball: $tarball, modver: $modver, buildopts: $buildopts, prompts: $prompts\n"; 81 86 82 if ($modver eq "") { $modver = 0; } 87 # we require the number of fields to be fixed, so this test is now invalid: 88 # if ($modver eq "") { $modver = 0; } 89 83 90 system ("pscheckmods $module $modver"); 84 91 if (($? == 0) and not defined $force{$module} and not defined $force{'all'}) { … … 109 116 chdir $tardir; 110 117 118 # we use NONE as the empty word 119 if ($buildopts eq "NONE") { $buildopts = ""; } 120 if ($prompts eq "NONE") { $prompts = ""; } 121 111 122 if (-e "Build.PL") { 112 123 # vsystem("perl Build.PL --install_path lib=$perldir "); 113 vsystem("perl Build.PL --install_base $prefix ");124 vsystem("perl Build.PL --install_base $prefix $buildopts"); 114 125 vsystem("Build"); 115 126 vsystem("Build install"); … … 118 129 if ($prompts) { 119 130 @answers = split (",", $prompts); 120 open (PIPE, "|perl Makefile.PL PREFIX=$prefix LIB=$perldir ");131 open (PIPE, "|perl Makefile.PL PREFIX=$prefix LIB=$perldir $buildopts"); 121 132 foreach $answer (@answers) { 122 133 print PIPE "$answer\n"; … … 124 135 close (PIPE); 125 136 } else { 126 vsystem ("perl Makefile.PL PREFIX=$prefix LIB=$perldir ");137 vsystem ("perl Makefile.PL PREFIX=$prefix LIB=$perldir $buildopts"); 127 138 } 128 129 139 vsystem ("make < /dev/null"); 130 140 vsystem ("make install");
Note:
See TracChangeset
for help on using the changeset viewer.
