From ab2a9e67a996e9e82bd42102363ab985c7e15978 Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net" <>
Date: Wed, 14 Apr 2004 00:59:22 +0000
Subject: Patch for bug 240219: display valid PPM commands when using PPM
 version 2; r=timeless; a=justdave.

---
 checksetup.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/checksetup.pl b/checksetup.pl
index aad13e2cb..05f43ade0 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -315,10 +315,19 @@ print "\n" unless $silent;
 
 if ($^O =~ /MSWin32/i) {
     if ($^V lt pack('U*',5,8,0)) {
+        # If something older than 5.8 is detected, then point to the oi
+        # repository using ppm version 2 commands (which is the default
+        # for Perl 5.6)
+
         print "The required ActivePerl modules are available at OpenInteract's ppm repository.\n";
         print "You can add the repository with the following command:\n";
-        print "    ppm rep add oi http://openinteract.sourceforge.net/ppmpackages/\n\n";
+        print "    ppm set rep oi http://openinteract.sourceforge.net/ppmpackages/\n";
+        print "You can then save the changes by typing:\n";
+        print "    ppm set save\n\n";
     } else {
+        # For Perl 5.8 or higher, point the user to a 5.8 repository,
+        # using ppm version 3 commands (which is the default for Perl 5.8)
+
         print "Most ActivePerl modules are available at Apache's ppm repository.\n";
         print "A list of mirrors is available at\n";
         print "    http://www.apache.org/dyn/closer.cgi/perl/win32-bin/ppms/\n";
-- 
cgit v1.2.3-24-g4f1b