[TEST PATCH] %^H can now propagate into eval

[p5sagit/p5-mst-13.2.git] / t / comp / package.t

diff --git a/t/comp/package.t b/t/comp/package.t
index d63e108..35cd40c 100755 (executable)
--- a/t/comp/package.t
+++ b/t/comp/package.t
@@ -57,15 +57,15 @@ print((foo(1))[0] eq 'PQR' ? "ok 8\n" : "not ok 8\n");
 my $Q = xyz->new();
 undef %xyz::;
 eval { $a = *xyz::new{PACKAGE}; };
-print $a eq "__ANON__" ? "ok 9\n" : "not ok 9\n";
+print $a eq "__ANON__" ? "ok 9\n" : "not ok 9 # '$a'\n";
 
 eval { $Q->param; };
 print $@ =~ /^Can't use anonymous symbol table for method lookup/ ?
-  "ok 10\n" : "not ok 10\n";
+  "ok 10\n" : "not ok 10 # '$@'\n";
 
-print "$Q" =~ /^__ANON__=/ ? "ok 11\n" : "not ok 11\n";
+print "$Q" =~ /^__ANON__=/ ? "ok 11\n" : "not ok 11 # '$Q'\n";
 
-print ref $Q eq "__ANON__" ? "ok 12\n" : "not ok 12\n";
+print ref $Q eq "__ANON__" ? "ok 12\n" : "not ok 12 # '$Q'\n";
 
 package bug32562;