Stash entry type ambiguity in perl5.43.2-5

stash-ambiguity.t

#!/usr/bin/env perl
use strict;
use warnings;

use Test2::V0 -no_srand => 1;

{
  package
    MyTestPackage001;
  sub foo {"foo"}
}

{
  my $stash = \%MyTestPackage001::;

  is ref $stash->{foo}, ''
    , q{ref $MyTestPackage001::{foo} is not a ref};

  is ref \$stash->{foo}, 'GLOB'
    , q{ref $MyTestPackage001::{foo} should be GLOB};
}

eval q{
  my $stash = \%MyTestPackage001::;

  is $stash->{foo}, *MyTestPackage001::foo, "touch the glob";

  is ref $stash->{foo}, ''
    , q{ref $MyTestPackage001::{foo} is not a ref};

  is ref \$stash->{foo}, 'GLOB'
    , q{ref $MyTestPackage001::{foo} should be GLOB};
};

done_testing;