*** testenv	Thu Nov 21 15:16:56 2002
--- testenv.new	Thu Nov 21 15:15:16 2002
***************
*** 199,205 ****
      }
  } elsif ($detailedOS =~ /win/i && $detailedOS !~ /darwin/i ) {
      $perltype = 'ActiveState';
!     $perlver .= ", build " . Win32::BuildNumber();	# ActivePerl only
  } else {
      $perltype = 'generic';
  }
--- 199,207 ----
      }
  } elsif ($detailedOS =~ /win/i && $detailedOS !~ /darwin/i ) {
      $perltype = 'ActiveState';
!     if($detailedOS !~ /MSWin32/i) { # Added for SiePerl
!         $perlver .= ", build " . Win32::BuildNumber();	# ActivePerl only
!     }
  } else {
      $perltype = 'generic';
  }
***************
*** 658,667 ****
      print "directly in the web server (e.g. using the Apache <tt>SetEnv</tt> \n";
      print "command, followed by an Apache restart). Once this is done, you should re-run <b>testenv</b>\n";
      print "to check that PERL5SHELL is set properly.\n";
!     if( Win32::BuildNumber() < $ActivePerlRecommendedBuild ) {
! 	print "</p>\n";
! 	print "<p><b><font color=\"red\">Warning:</font></b> ";
! 	print "ActiveState Perl must be upgraded to build <b>$ActivePerlRecommendedBuild</b> if you are going to use PERL5SHELL, which was broken in earlier builds.";
      }
      print "</p>\n";
      print "</td></tr>\n";
--- 660,671 ----
      print "directly in the web server (e.g. using the Apache <tt>SetEnv</tt> \n";
      print "command, followed by an Apache restart). Once this is done, you should re-run <b>testenv</b>\n";
      print "to check that PERL5SHELL is set properly.\n";
!     if($detailedOS !~ /MSWin32/i) { # Added for SiePerl
!         if( Win32::BuildNumber() < $ActivePerlRecommendedBuild ) {
!     	    print "</p>\n";
!     	    print "<p><b><font color=\"red\">Warning:</font></b> ";
! 	    print "ActiveState Perl must be upgraded to build <b>$ActivePerlRecommendedBuild</b> if you are going to use PERL5SHELL, which was broken in earlier builds.";
!         }
      }
      print "</p>\n";
      print "</td></tr>\n";