develooper Front page | perl.perl5.porters | Postings from June 2004

Re: [perl #21513] Found a bug in Perl 5.8

From:
Andreas Hernitscheck
Date:
June 29, 2004 00:50
Subject:
Re: [perl #21513] Found a bug in Perl 5.8
Message ID:
000701c45d63$c161e3e0$0400a8c0@gamma
Im sorry, cant reproduce that now. Cant remember where i found it, its more
than one year ago.

If i met it again, i will reply.


Steve Hay via RT wrote:
> Not enough information to reproduce the bug.
>
> The below program works fine on ActivePerl Build 806 (Perl 5.8.0):
>
> #=====
> use strict;
> use warnings;
>
> my @data;
> my %dmy;
>
> $dmy{name}='peter';
>
> foreach my $i (1..100) {
>   my %data=();
>   foreach my $key (keys %dmy) {
>     $data{$key} = $dmy{$key};
>   }
>   push @data,\%data;
> }
>
> my $x=\@data;
>
> my $name;
> eval {
>   $name = $x->[42]{name};
> };
>
> if ($@) {
>   die $@
> }
> else {
>   print "name = $name\n";
> }
> #=====
>
> Can you provide a short program like the above which exhibits the
> problem that you describe?




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About