Help for this page

Select Code to Download


  1. or download this
    my $x if 0;     #warns
my $x if "";    #warns
my $x if undef; #OK
my $x = 0 if 0; #OK
  2. or download this
    use warnings;
sub a { my $x = 0 if undef;  print ++$x }
a for 1 .. 3;