Don't crash if the symbol table entry for ISA isn't a typeglob.

p4raw-id: //depot/perl@30442

1 files changed, 7 insertions, 1 deletions

diff --git a/t/op/gv.t b/t/op/gv.t
index d243fb70a3..4475912f53 100755
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 
 require './test.pl';
-plan( tests => 154 );
+plan( tests => 155 );
 
 # type coersion on assignment
 $foo = 'foo';
@@ -453,6 +453,12 @@ foreach my $value ([1,2,3], {1=>2}, *STDOUT{IO}, \&ok, *STDOUT{FORMAT}) {
 	"PERL_DONT_CREATE_GVSV shouldn't affect thingy syntax under strict");
 }
 
+{
+    # Bug reported by broquaint on IRC
+    *slosh::{HASH}->{ISA}=[];
+    slosh->import;
+    pass("gv_fetchmeth coped with the unexpected");
+}
 __END__
 Perl
 Rules