Help for this page

Select Code to Download


  1. or download this
    {
    package Null;
...
print "Y2: $y\n";
my $z = $x{foo};
print "Z: $z\n";
  2. or download this
    Y1: Foo=HASH(0x1801234)
Y2: Null=HASH(0x1801234)
Z:
  3. or download this
    $db->{foo} = { a => 'b' };
my $x = $db->{foo};
...
delete $db->{foo};
is( $x, undef ); # This works
is( $x + 0, 0 ); # This does not