Reverse the order of two tests in gv.t
authorFather Chrysostomos <sprout@cpan.org>
Fri, 26 Aug 2011 21:52:06 +0000 (14:52 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 26 Aug 2011 21:52:21 +0000 (14:52 -0700)
so that the first does not make the second always pass.
The bug that 99fc7eca4 fixed would never had occurred if
they had been that way to begin with.

t/op/gv.t

index 2930e12..0b3a543 100644 (file)
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -219,8 +219,8 @@ is (*{*x{GLOB}}, "*main::STDOUT");
     # although it *should* if you're talking about magicals
 
     my $a = "]";
-    ok(defined ${$a});
     ok(defined *{$a});
+    ok(defined ${$a});
 
     $a = "1";
     "o" =~ /(o)/;