[BACK]Return to perltest.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build / system_dependencies

Diff for /loncom/build/system_dependencies/perltest.pl between versions 1.10 and 1.11

version 1.10, 2003/02/03 18:03:52 version 1.11, 2003/08/22 19:56:02
Line 331  my @stable_okay; Line 331  my @stable_okay;
 my @stable_veryokay;  my @stable_veryokay;
   
 # ===== Loop through all of the needed CPAN distributions and probe the system.  # ===== Loop through all of the needed CPAN distributions and probe the system.
 foreach my $dist (keys %dist_module_hash)  foreach my $dist (keys %dist_module_hash) {
   {  
     my $module = $dist_module_hash{$dist};      my $module = $dist_module_hash{$dist};
     my $fs = $modulefs_hash{$module};      my $fs = $modulefs_hash{$module};
     my $fsflag = 0;      my $fsflag = 0;
     if ($big_module_string =~ /$fs/)      if ($big_module_string =~ /$fs/) { $fsflag = 1; }
       {  
         $fsflag = 1;  
       }  
     my ($vok,$vstr);      my ($vok,$vstr);
     ($vok,$vstr) = have_vers($module,$module_dev_version_hash{$module});      foreach my $type ('dev','stable') {
     # print "fsflag: $fsflag, vok: $vok, vstr: $vstr, fs: $fs\n";   my ($vers_mod,$vers_dist);
     if ($fsflag and !$vok and $vstr=~/not found/)   my ($missing_ref,$outdated_ref,$veryokay_ref,$okay_ref);
       {   if ($type eq 'dev') {
  push(@dev_missing,'MISSING  '.$dist.' (want distribution version '.      $vers_mod=$module_dev_version_hash{$module};
      $dist_dev_version_hash{$dist}.') ?'."\n");      $vers_dist=$dist_dev_version_hash{$dist};
  # The question mark indicates there was a pattern match in the      ($missing_ref,$outdated_ref,$veryokay_ref,$okay_ref)=
  # big_module_string which would be unexpected.   (\@dev_missing,\@dev_outdated,\@dev_veryokay,\@dev_okay);
  # There is no usual reason to tell the normal LON-CAPA user about this   } elsif ($type eq 'stable') {
  # question mark.  This is just source code magic.      $vers_mod=$module_stable_version_hash{$module};
       }      $vers_dist=$dist_stable_version_hash{$dist};
     elsif (!$fsflag and !$vok and $vstr=~/not found/)      ($missing_ref,$outdated_ref,$veryokay_ref,$okay_ref)=
       {   (\@stable_missing,\@stable_outdated,\@stable_veryokay,
  push(@dev_missing,'MISSING  '.$dist.' (want distribution version '.   \@stable_okay);
      $dist_dev_version_hash{$dist}.')'."\n");   }
       }   ($vok,$vstr) = have_vers($module,$vers_mod);
     elsif ($fsflag and !$vok and $vstr!~/not found/)   # print "fsflag: $fsflag, vok: $vok, vstr: $vstr, fs: $fs\n";
       {   if ($fsflag and !$vok and $vstr=~/not found/) {
  push(@dev_outdated,'OUTDATED '.$dist.' wanted module: v'.      push(@$missing_ref,'MISSING  '.$dist.' (want distribution '.
      $module_dev_version_hash{$module}.'; '.$vstr.' (VERSION_FROM is '.   $module.' version '. $vers_dist.') ?'."\n");
      $fs.') want dist version '.$dist_dev_version_hash{$dist}.'.'.      # The question mark indicates there was a pattern match in the
      "\n");      # big_module_string which would be unexpected.
       }      # There is no usual reason to tell the normal LON-CAPA user about this
     elsif ($fsflag)      # question mark.  This is just source code magic.
       {   } elsif (!$fsflag and !$vok and $vstr=~/not found/) {
  $vstr=~/found v(.*)/;      push(@$missing_ref,'MISSING  '.$dist.' (want distribution '.
  my $vc=$1;   $module.' version '.$vers_dist.')'."\n");
  if ($vc eq $module_dev_version_hash{$module})   } elsif ($fsflag and !$vok and $vstr!~/not found/) {
           {      push(@$outdated_ref,'OUTDATED '.$dist.' wanted module: v'.
     push(@dev_veryokay,'VERYOKAY '.$dist.' wanted: v'.   $vers_mod.'; '.$vstr.' (VERSION_FROM is '.
  $module_dev_version_hash{$module}.'; '.$vstr.   $fs.') want dist '.$module.' version '.$vers_dist.'.'. "\n");
  ' (VERSION_FROM is '.$fs.') want dist version '.   } elsif ($fsflag) {
  $dist_dev_version_hash{$dist}."\n");      $vstr=~/found v(.*)/;
   }      my $vc=$1;
  else      if ($vc eq $vers_mod) {
           {   push(@$veryokay_ref,'VERYOKAY '.$dist.' wanted: v'.
     push(@dev_okay,'OKAY     '.$dist.' wanted: v'.       $vers_mod.'; '.$vstr.' (VERSION_FROM is '.$fs.
   $module_dev_version_hash{$module}.'; '.$vstr.       ') want dist '.$module.' version '.$vers_dist."\n");
   ' (VERSION_FROM is '.$fs.').'."\n");      } else {
   }   push(@$okay_ref,'OKAY     '.$dist.' wanted: v'.
       }       $vers_mod.'; '.$vstr.' (VERSION_FROM is '.$fs.').'."\n");
     ($vok,$vstr) = have_vers($module,$module_stable_version_hash{$module});      }
     if ($fsflag and !$vok and $vstr=~/not found/)   }
       {      }
  push(@stable_missing,'MISSING  '.$dist.' (want distribution version '.  }
      $dist_stable_version_hash{$dist}.') ?'."\n");  
  # The question mark indicates there was a pattern match in the  
  # big_module_string which would be unexpected.  
  # There is no usual reason to tell the normal LON-CAPA user about this  
  # question mark.  This is just source code magic.  
       }  
     elsif (!$fsflag and !$vok and $vstr=~/not found/)  
       {  
  push(@stable_missing,'MISSING  '.$dist.' (want distribution version '.  
      $dist_stable_version_hash{$dist}.')'."\n");  
       }  
     elsif ($fsflag and !$vok and $vstr!~/not found/)  
       {  
  push(@stable_outdated,'OUTDATED '.$dist.' wanted module: v'.  
      $module_stable_version_hash{$module}.'; '.$vstr.  
      ' (VERSION_FROM is '.$fs.') want dist version '.  
      $dist_stable_version_hash{$dist}.'.'."\n");  
       }  
     elsif ($fsflag)  
       {  
  $vstr=~/found v(.*)/;  
  my $vc=$1;  
  if ($vc eq $module_stable_version_hash{$module})  
           {  
     push(@stable_veryokay,'VERYOKAY '.$dist.' wanted: v'.  
  $module_stable_version_hash{$module}.'; '.$vstr.  
  ' (VERSION_FROM is '.$fs.') want dist version '.  
  $dist_stable_version_hash{$dist}."\n");  
   }  
  else  
           {  
     push(@stable_okay,'OKAY     '.$dist.' wanted: v'.  
   $module_stable_version_hash{$module}.'; '.$vstr.  
   ' (VERSION_FROM is '.$fs.').'."\n");  
   }  
       }  
   }  
   
 print("\n".'SYNOPSIS'."\n");  print("\n".'SYNOPSIS'."\n");
   
Removed from v.1.10  
changed lines
  Added in v.1.11

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>