Bug 25169

Summary: Name "RPM::num2tag" used only once: possible typo
Product: Sisyphus Reporter: viy <viy>
Component: perl-RPMAssignee: at <at>
Status: CLOSED FIXED QA Contact: qa-sisyphus
Severity: normal    
Priority: P3 CC: at, cas, crux, ender, lav, ldv, mike, qa_viy, shaba, viy
Version: unstable   
Hardware: all   
OS: Linux   
Attachments:
Description Flags
зкщзщыув зфеср none

Description viy 2011-02-28 17:21:23 MSK 
Created attachment 4825 [details]
зкщзщыув зфеср

В Сизифе при использовании RPM::Header с use warnings, ругань
Name "RPM::num2tag" used only once: possible typo at /usr/lib64/perl5/DynaLoader.pm line 223.
Name "RPM::tag2num" used only once: possible typo at /usr/lib64/perl5/DynaLoader.pm line 223.
надо их явно обьявить вне XS кода, как в патче внизу.
--- Perl-RPM/RPM.pm	2007-04-22 11:01:09 +0300
+++ Perl-RPM/RPM.pm	2011-02-28 15:44:29 +0200
@@ -14,6 +14,8 @@
 @EXPORT = qw(rpm_osname rpm_archname rpm_version);
 @EXPORT_OK = (@EXPORT, 'vercmp', 'evrcmp');
 
+use vars qw($tag2num $num2tag);
+
 bootstrap RPM;
 
 # These are stubs into the sub-module bootstraps, hacked into RPM.xs
Comment 1 viy 2011-03-01 18:38:13 MSK 
патч локально протестирован и проблем не создает, могу выложить в Сизиф.
Comment 2 viy 2011-03-10 16:08:42 MSK 
выложил perl-RPM-1.49-alt1.2 в Сизиф.