Bug 2029995
Summary: | perl.req: use keywords not found on BEGIN { lines | ||||||
---|---|---|---|---|---|---|---|
Product: | [Fedora] Fedora | Reporter: | noatsecure | ||||
Component: | perl-generators | Assignee: | Jitka Plesnikova <jplesnik> | ||||
Status: | CLOSED RAWHIDE | QA Contact: | Fedora Extras Quality Assurance <extras-qa> | ||||
Severity: | unspecified | Docs Contact: | |||||
Priority: | unspecified | ||||||
Version: | 35 | CC: | caillon+fedoraproject, cra, echevemaster, iarnell, jplesnik, kasal, lester.hightower, mkreder, mmaslano, mspacek, perl-devel, ppisar, psabata, rhughes, sandmann, spotrh | ||||
Target Milestone: | --- | ||||||
Target Release: | --- | ||||||
Hardware: | Unspecified | ||||||
OS: | Unspecified | ||||||
Whiteboard: | |||||||
Fixed In Version: | perl-generators-1.14-1.fc38 perl-generators-1.14-1.fc37 | Doc Type: | If docs needed, set a value | ||||
Doc Text: | Story Points: | --- | |||||
Clone Of: | |||||||
: | 2119130 (view as bug list) | Environment: | |||||
Last Closed: | 2022-08-17 14:32:51 UTC | Type: | Bug | ||||
Regression: | --- | Mount Type: | --- | ||||
Documentation: | --- | CRM: | |||||
Verified Versions: | Category: | --- | |||||
oVirt Team: | --- | RHEL 7.3 requirements from Atomic Host: | |||||
Cloudforms Team: | --- | Target Upstream Version: | |||||
Embargoed: | |||||||
Bug Depends On: | |||||||
Bug Blocks: | 2119130 | ||||||
Attachments: |
|
Description
noatsecure
2021-12-07 18:46:44 UTC
Reassigned to perl: "BEGIN failed--compilation aborted at /usr/share/perl5/Module/Loaded.pm line 6." "package Module::Loaded; use strict; use Carp qw[carp]; BEGIN { use base 'Exporter';" >rpm -qf --qf='%{sourcerpm}\n' /usr/share/perl5/Module/Loaded.pm perl-5.34.1-486.fc35.src.rpm >rpm -q --requires perl | grep base [no output] More importantly, perl's subpackage perl-Module-Loaded is missing the "Requires: perl(base)":
>rpm -q --requires perl-Module-Loaded | grep base
[no output]
This is actually a bug in the perl-generators perl.req script: >/usr/lib/rpm/perl.req ~/src/fedora/git/perl/perl-5.36.0/cpan/Module-Loaded/lib/Module/Loaded.pm perl(Carp) perl(strict) perl(vars) If you add a newline before the 'use base' line in Loaded.pm, it works correctly: >diff -ub Loaded.pm~ Loaded.pm --- Loaded.pm~ 2022-07-24 11:46:54.711678673 -0400 +++ Loaded.pm 2022-07-24 11:59:00.149220316 -0400 @@ -3,7 +3,8 @@ use strict; use Carp qw[carp]; -BEGIN { use base 'Exporter'; +BEGIN { + use base 'Exporter'; use vars qw[@EXPORT $VERSION]; $VERSION = '0.08'; >/usr/lib/rpm/perl.req Loaded.pm perl(Carp) perl(Exporter) perl(base) perl(strict) perl(vars) Created attachment 1899053 [details]
proposed fix including test cases
Thanks for the report, I'll look at it. |