From 6bc11c20a6d37811b878c9e5e296a35153c07198 Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net" <>
Date: Fri, 26 Mar 2004 10:14:00 +0000
Subject: Patch for bug 238693: replace depreciated v-strings with calls to the
 pack() function; patch by GavinS <bugzilla@chimpychompy.org>; r=kiko;
 a=justdave.

---
 checksetup.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/checksetup.pl b/checksetup.pl
index 6d2c79189..f2e14bf34 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -313,7 +313,7 @@ my $patchreader = have_vers("PatchReader",0);
 print "\n" unless $silent;
 
 if ($^O =~ /MSWin32/i) {
-    if ($^V lt v5.8.0) {
+    if ($^V lt pack('U*',5,8,0)) {
         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";
-- 
cgit v1.2.3-24-g4f1b