There's no need to disable strict refs for getting the stash of a package whose name...

diff --git a/t/35-stash.t b/t/35-stash.t
index c20a6f027d9a3238bdee9ecaa7fe9904db6c234a..a1b6a7de46ba847a9469c79aee09916df565e225 100644 (file)
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -34,10 +34,7 @@ $code .= ', data => sub { +{ guard => 0 } }';
 my $wiz = eval $code;
 diag $@ if $@;
 
-{
- no strict 'refs';
- cast %{"Hlagh::"}, $wiz;
-}
+cast %Hlagh::, $wiz;
 
 {
  local %mg;
@@ -95,10 +92,7 @@ END {
  is_deeply \%mg, { }, 'stash: magic that remains at END time' if $run;
 }
 
-{
- no strict 'refs';
- dispell %{"Hlagh::"}, $wiz;
-}
+dispell %Hlagh::, $wiz;
 
 $code = 'wizard '
         . join (', ', map { <<CB;
@@ -117,10 +111,7 @@ $code .= ', data => sub { +{ guard => 0 } }';
 $wiz = eval $code . ', op_info => ' . VMG_OP_INFO_NAME;
 diag $@ if $@;
 
-{
- no strict 'refs';
- cast %{"Hlagh::"}, $wiz;
-}
+cast %Hlagh::, $wiz;
 
 eval q{
  die "ok\n";
@@ -130,18 +121,12 @@ eval q{
 
 is $@, "ok\n", 'stash: function call with op name compiled fine';
 
-{
- no strict 'refs';
- dispell %{"Hlagh::"}, $wiz;
-}
+dispell %Hlagh::, $wiz;
 
 $wiz = eval $code . ', op_info => ' . VMG_OP_INFO_OBJECT;
 diag $@ if $@;
 
-{
- no strict 'refs';
- cast %{"Hlagh::"}, $wiz;
-}
+cast %Hlagh::, $wiz;
 
 eval q{
  die "ok\n";
@@ -151,7 +136,4 @@ eval q{
 
 is $@, "ok\n", 'stash: function call with op object compiled fine';
 
-{
- no strict 'refs';
- dispell %{"Hlagh::"}, $wiz;
-}
+dispell %Hlagh::, $wiz;