From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 24 May 2001 12:37:13 +0000 (+0000)
Subject: Iteration continues; hopefully convergently.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=371ddd858c2651cdea3fbca05e7054367a51f6ac;p=p5sagit%2Fp5-mst-13.2.git

Iteration continues; hopefully convergently.

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

diff --git a/t/lib/b-stash.t b/t/lib/b-stash.t
index d0ae76a..7f523b5 100644
--- a/t/lib/b-stash.t
+++ b/t/lib/b-stash.t
@@ -39,16 +39,21 @@ if ($Is_VMS) {
     $a =~ s/-uVMS,-uVMS::Filespec,//;
     $a =~ s/-uSocket,//; # Socket is optional/compiler version dependent
 }
-use vars '$OS2::is_aout';
+
+{
+    no strict 'vars';
+    use vars '$OS2::is_aout';
+}
 if (($Config{static_ext} eq ' ' ||
      ($Config{static_ext} eq 'Socket' && $Is_VMS))
     && !($^O eq 'os2' and $OS2::is_aout)
-    ) {
-  if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a)
-      $b = join ',', sort split /,/, $b;
-  }
-  print "# [$a]\n# vs.\n# [$b]\nnot " if $a ne $b;
-  ok;
+	) {
+    if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a)
+	$b = join ',', sort split /,/, $b;
+    }
+    print "# [$a]\n# vs.\n# [$b]\nnot " if $a ne $b;
+    ok;
 } else {
-  print "ok $test # skipped: one or more static extensions\n"; $test++;
+    print "ok $test # skipped: one or more static extensions\n"; $test++;
 }
+