Help for this page

Select Code to Download


  1. or download this
    use warnings;
    BEGIN { $^W = 0; }
    my $s = '' . undef();  # Use of uninitialized value
    
  2. or download this
    no warnings;
    BEGIN { $^W = 1; }
    my $s = '' . undef();  # [No warnings]
    
  3. or download this
    use strict;
    use warnings;
    ...
    test {
        print "@_";   # Use of uninitialized value
    };