#!./perl
-print "1..36\n";
+print "1..38\n";
# delete() on hash elements
print "not " unless $a == $b && $b == $c;
print "ok 36\n";
}
+
+{
+ # [perl #29127] scalar delete of empty slice returned garbage
+ my %h;
+ my ($x,$y) = (1, scalar delete @h{()});
+ print "not " if defined $y;
+ print "ok 37\n";
+}
+
+{
+ # [perl #30733] array delete didn't free returned element
+ my $x = 0;
+ sub X::DESTROY { $x++ }
+ {
+ my @a;
+ $a[0] = bless [], 'X';
+ my $y = delete $a[0];
+ }
+ print "not " unless $x == 1;
+ print "ok 38\n";
+}