From: Peter Prymmer <PPrymmer@factset.com>
Date: Mon, 16 Jul 2001 15:48:33 +0000 (-0700)
Subject: fix t/op/sprintf.t to not load %Config
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2fba3065d4b7c8eed8cb05e0794258dc03b3486d;p=p5sagit%2Fp5-mst-13.2.git

fix t/op/sprintf.t to not load %Config
Message-Id:  <Pine.OSF.4.10.10107161543400.464972-100000@aspara.forte.com>

p4raw-id: //depot/perl@11395
---

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 3ac559d..89992d6 100755
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -11,8 +11,8 @@ BEGIN {
     @INC = '../lib';
 }   
 use warnings;
-# %Config is needed to obtain archname for VAX (since @INC is now insufficient)
-use Config;
+# we do not load %Config since this test resides in op and needs
+# to run under the minitest target even without Config.pm working.
 
 # strictness
 my @tests = ();
@@ -36,10 +36,11 @@ $SIG{__WARN__} = sub {
 };
 
 my $Is_VMS_VAX = 0;
-# The redundant $^O check might help non VMS platforms avoid %Config load
-if ($^O eq 'VMS' &&
-      defined($Config{'archname'}) && $Config{'archname'} eq 'VMS_VAX') {
-    $Is_VMS_VAX = 1;
+# We use HW_MODEL since ARCH_NAME was not in VMS V5.*
+if ($^O eq 'VMS') {
+    my $hw_model;
+    chomp($hw_model = `write sys\$output f\$getsyi("HW_MODEL")`);
+    $Is_VMS_VAX = $hw_model < 1024 ? 1 : 0;
 }
 
 for ($i = 1; @tests; $i++) {