https://bugzilla.redhat.com/show_bug.cgi?id=2055608
Bug ID: 2055608
Summary: Perl 5.32.1 Incorrectly Processes Hash Key Existence
in Two-Dimensional Hashes
Product: Fedora
Version: 34
Hardware: x86_64
OS: Linux
Status: NEW
Component: perl
Severity: medium
Assignee: jples...@redhat.com
Reporter: b...@twics.org
QA Contact: extras...@fedoraproject.org
CC: caillon+fedoraproj...@gmail.com, iarn...@gmail.com,
jples...@redhat.com, ka...@ucw.cz,
mmasl...@redhat.com, mspa...@redhat.com,
perl-devel@lists.fedoraproject.org, ppi...@redhat.com,
psab...@redhat.com, rhug...@redhat.com,
sandm...@redhat.com, spo...@gmail.com
Target Milestone: ---
Classification: Fedora
Description of problem:
This appears to be a basic Perl runtime error. Checking for the existence of an
element in a two-dimensional hash has the side-effect of bringing into
existence a hash entry with the first index value. It's easier to see in code:
#!/usr/bin/perl
%X = ();
@I = ("1","2","3");
$N = 0;
foreach $D (@I)
{
$N++ if (exists($X{$D}{"A"}));
printf "K: %u\n",scalar(keys %X);
}
printf "N: %u\n",$N;
Running the code inexplicably generates this output:
K: 1
K: 2
K: 3
N: 0
Version-Release number of selected component (if applicable):
5.32.1 with 51 patches applied by Fedora (this is the current package version
available in Fedora 34)
How reproducible:
100%
Steps to Reproduce:
1. Run the above code
2.
3.
Actual results:
K: 1
K: 2
K: 3
N: 0
Expected results:
K: 0
K: 0
K: 0
N: 0
Additional info:
The problem only seems to arise with multi-dimensional hashes. Code such as:
#!/usr/bin/perl
%X = ();
@I = ("1","2","3");
$N = 0;
foreach $D (@I)
{
$N++ if (exists($X{$D}));
printf "K: %u\n",scalar(keys %X);
}
printf "N: %u\n",$N;
behaves as expected, returning:
K: 0
K: 0
K: 0
N: 0
I find it difficult to believe that this bug, if it is a bug rather than a
not-very-well-documented "feature," has not been noticed before, but perhaps
nothing critical depended upon it? But then again, something critical might, in
which case this package version dates back to 23 June 2021...
--
You are receiving this mail because:
You are on the CC list for the bug.
https://bugzilla.redhat.com/show_bug.cgi?id=2055608
_______________________________________________
perl-devel mailing list -- perl-devel@lists.fedoraproject.org
To unsubscribe send an email to perl-devel-le...@lists.fedoraproject.org
Fedora Code of Conduct:
https://docs.fedoraproject.org/en-US/project/code-of-conduct/
List Guidelines: https://fedoraproject.org/wiki/Mailing_list_guidelines
List Archives:
https://lists.fedoraproject.org/archives/list/perl-devel@lists.fedoraproject.org
Do not reply to spam on the list, report it:
https://pagure.io/fedora-infrastructure
