#!./perl
-# $RCSfile: my.t,v $
-
-print "1..33\n";
+print "1..36\n";
sub foo {
my($a, $b) = @_;
eval { my $x = opth };
print "not " if $@;
print "ok 33\n";
+
+
+sub foo3 {
+ ++my $x->{foo};
+ print "not " if defined $x->{bar};
+ ++$x->{bar};
+}
+eval { foo3(); foo3(); };
+print "not " if $@;
+print "ok 34\n";
+
+# my $foo = undef should always assign [perl #37776]
+{
+ my $count = 35;
+ loop:
+ my $test = undef;
+ print "not " if defined $test;
+ print "ok $count\n";
+ $test = 42;
+ goto loop if ++$count < 37;
+}