diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-09-21 16:16:00 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-09-21 16:16:00 +0000 |
commit | 066e87f60a7bc056a84c89739f4093b081b76dd7 (patch) | |
tree | 092398ff834469e1a324857b7a02940f4f5d5435 /Rpmdrake/formatting.pm | |
parent | 2292feb7bc25dafe8794b2cde71c733b28ab07a2 (diff) | |
download | rpmdrake-066e87f60a7bc056a84c89739f4093b081b76dd7.tar rpmdrake-066e87f60a7bc056a84c89739f4093b081b76dd7.tar.gz rpmdrake-066e87f60a7bc056a84c89739f4093b081b76dd7.tar.bz2 rpmdrake-066e87f60a7bc056a84c89739f4093b081b76dd7.tar.xz rpmdrake-066e87f60a7bc056a84c89739f4093b081b76dd7.zip |
(version_release) factorize some code
also needed for next commit
(backported from trunk)
Diffstat (limited to 'Rpmdrake/formatting.pm')
-rw-r--r-- | Rpmdrake/formatting.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 6f581b9e..7b4c0917 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -49,7 +49,9 @@ our @EXPORT = qw( pkg2medium rpm_description split_fullname - urpm_name); + urpm_name + version_release + ); # from rpmtools, #37482: @@ -90,6 +92,11 @@ sub my_fullname { "$name-$version-$release"; } +sub version_release { + my (undef, $version, $release) = $_[0]->fullname; + "$version-$release"; +} + sub urpm_name { return '?-?-?.?' unless ref $_[0]; scalar $_[0]->fullname; |