From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 11 Apr 2007 17:51:02 +0000 (+0000)
Subject: Be a bit more specific in what our second typeglob isn't. It is actually
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88e5f5429930462fb31b445633366ecac2abe0e0;p=p5sagit%2Fp5-mst-13.2.git

Be a bit more specific in what our second typeglob isn't. It is actually
expected to be undef.

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

diff --git a/t/op/ref.t b/t/op/ref.t
index 6e3c170..ba9aacf 100755
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -467,7 +467,7 @@ TODO: {
     $name1 = "Left"; $name2 = "Left\0Right";
     my $glob2 = *{$name2};
 
-    isnt ($glob1, $glob2, "We get different typeglobs");
+    is ($glob1, undef, "We get different typeglobs. In fact, undef");
 
     *{$name1} = sub {"One"};
     *{$name2} = sub {"Two"};