# New Ticket Created by  "herington, dean" 
# Please include the string:  [perl #37315]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=37315 >


This is a bug report for perl from herington_dean[at]emc.com
<mailto:herington_dean[at]emc.com> ,
generated with the help of perlbug 1.35 running under perl v5.8.4.
 

-----------------------------------------------------------------
Running the following program outputs:
  Perl 5.008004
  undef
  undef
  undef
  2
but it should output:
  Perl 5.008004
  undef
  undef
  undef
  undef
 

#!/usr/bin/perl -w
 
print "Perl $]\n";
 
sub show {
    my ($val) = [at]_;
    if (! defined $val) {
        print "undef\n";
    } else {
        print "$val\n";
    }
}
 
sub sb {
 
    my $v1;
    $v1 = -1 if 0;
 
    my $v2 = -2 if 0;
 
    show $v1;
    show $v2;
 
    $v1 = 1;
    $v2 = 2;
 
}
 
sb;
sb;