Changeset 17490 for trunk/psconfig/pscheckperl
- Timestamp:
- Apr 29, 2008, 7:18:58 AM (18 years ago)
- File:
-
- 1 edited
-
trunk/psconfig/pscheckperl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psconfig/pscheckperl
r16523 r17490 5 5 $version = ""; 6 6 $build = 0; 7 my %force; # Names of module to force build 7 8 @tARGV = (); 8 9 for (; @ARGV > 0; ) { … … 14 15 $build = 1; 15 16 shift; next; 17 } 18 if ($ARGV[0] eq "-force") { 19 $force{$ARGV[1]} = 1; 20 shift; shift; next; 16 21 } 17 22 if ($ARGV[0] eq "-h") { &usage (); } … … 79 84 80 85 print "$module: missing\n"; 81 if (!$build) {86 unless ($build or defined $force{$module} or defined $force{'all'}) { 82 87 $Nmissing ++; 83 88 push @missing, $module;
Note:
See TracChangeset
for help on using the changeset viewer.
