From: Vincent Pit <vince@profvince.com>
Date: Sun, 17 Jul 2011 22:31:54 +0000 (+0200)
Subject: Test that indirect does not vivify entries in %^H
X-Git-Tag: v0.24~4
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=94eaa9a61ca1429f0cf218ba0e6512f0c0c073aa;p=perl%2Fmodules%2Findirect.git

Test that indirect does not vivify entries in %^H
---

diff --git a/MANIFEST b/MANIFEST
index 65d9e24..fba7e0e 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -17,6 +17,7 @@ t/21-bad.t
 t/22-bad-mixed.t
 t/23-bad-notaint.t
 t/30-scope.t
+t/31-hints.t
 t/40-threads.t
 t/41-threads-teardown.t
 t/45-memory.t
diff --git a/t/31-hints.t b/t/31-hints.t
new file mode 100644
index 0000000..0b271b4
--- /dev/null
+++ b/t/31-hints.t
@@ -0,0 +1,25 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+SKIP: {
+ skip 'This would require extensive work to be okay with perl 5.8' => 1
+                                                                  if $] < 5.010;
+
+ local %^H = (a => 1);
+
+ require indirect;
+
+ # Force %^H repopulation with an Unicode match
+ my $x = "foo";
+ utf8::upgrade($x);
+ $x =~ /foo/i;
+
+ my $hints = join ',',
+              map { $_, defined $^H{$_} ? $^H{$_} : '(undef)' }
+               sort keys(%^H);
+ is $hints, 'a,1', 'indirect does not vivify entries in %^H';
+}