Changeset 34087 for trunk/psconfig/pscheckperl
- Timestamp:
- Jun 26, 2012, 11:39:02 AM (14 years ago)
- File:
-
- 1 edited
-
trunk/psconfig/pscheckperl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psconfig/pscheckperl
r28191 r34087 5 5 $version = ""; 6 6 $build = 0; 7 $clean = 0; 7 8 my %force; # Names of module to force build 8 9 @tARGV = (); … … 14 15 if ($ARGV[0] eq "-build") { 15 16 $build = 1; 17 shift; next; 18 } 19 if ($ARGV[0] eq "-clean") { 20 $clean = 1; 16 21 shift; next; 17 22 } … … 32 37 if ( @ARGV > 1) { &usage(); } 33 38 39 if ($build && $clean) {die "-build and -clean are incompatible\n";} 40 34 41 if ( @ARGV == 0) { 35 42 @list = <$tagsets/*.perl>; … … 95 102 # if ($modver eq "") { $modver = 0; } 96 103 104 if ($clean) { 105 ($tardir) = $tarball =~ m|(\S*).tar.gz|; 106 $tardir = "../extperl/$tardir"; 107 if (-d $tardir) { 108 print "remove tardir: $tardir\n"; 109 vsystem ("rm -rf $tardir"); 110 } 111 next; 112 } 113 97 114 system ("pscheckmods $module $modver"); 98 115 if (($? == 0) and not defined $force{$module} and not defined $force{'all'}) { … … 127 144 if ($prompts eq "NONE") { $prompts = ""; } 128 145 129 if (-e "Build.PL" and $module ne " Params::Validate" and $module ne "DateTime::TimeZone") {146 if (-e "Build.PL" and $module ne "DateTime::TimeZone") { 130 147 # vsystem("perl Build.PL --install_path lib=$perldir "); 131 148 vsystem("perl Build.PL --install_base $prefix $buildopts");
Note:
See TracChangeset
for help on using the changeset viewer.
