From
this site on September 30, 2005:
# 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;
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/