Test bug #111462, Safe + %^H + disallowed ops

diff --git a/dist/Safe/t/safeops.t b/dist/Safe/t/safeops.t
index 8edb223..85dc945 100644 (file)
--- a/dist/Safe/t/safeops.t
+++ b/dist/Safe/t/safeops.t
@@ -40,7 +40,7 @@ while (<$fh>) {
 }
 close $fh;
 
-plan(tests => scalar @op + 2);
+plan(tests => scalar @op + 3);
 
 sub testop {
     my ($op, $opname, $code) = @_;
@@ -81,6 +81,16 @@ foreach (@op) {
        ),
        qr/Unbalanced/,
        'No Unbalanced warnings when disallowing ops';
+    unlike
+       runperl(
+           switches => [ '-MSafe', '-w' ],
+           prog     => 'Safe->new->reval('
+                       . 'q(BEGIN{$^H{foo}=bar};use strict), 0'
+                       .')',
+           stderr   => 1,
+       ),
+       qr/Unbalanced/,
+       'No Unbalanced warnings when disallowing ops with %^H set';
 }
 
 # things that begin with SKIP are skipped, for various reasons (notably