aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-02-16 06:15:24 +0000
committerThierry Vignaud <tv@mageia.org>2012-02-16 06:15:24 +0000
commit84af202ce156529c02d7f8d0feed032c65d63d9d (patch)
tree4d885457dfba1687647635cdc8bad8ce0241e17f
parent11df98ff2cb530b94838807f029d29862549f582 (diff)
downloadrpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.tar
rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.tar.gz
rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.tar.bz2
rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.tar.xz
rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.zip
spacing
-rw-r--r--Rpmdrake/formatting.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm
index 95da9728..de78fb80 100644
--- a/Rpmdrake/formatting.pm
+++ b/Rpmdrake/formatting.pm
@@ -81,21 +81,19 @@ sub rpm_description {
"$t$tmp\n";
}
-
sub split_fullname { $_[0] =~ /^(.*)-([^-]+)-([^-]+)\.([^.-]+)$/ }
+
sub my_fullname {
return '?-?-?' unless ref $_[0];
my ($name, $version, $release) = $_[0]->fullname;
"$name-$version-$release";
}
-
sub urpm_name {
return '?-?-?.?' unless ref $_[0];
scalar $_[0]->fullname;
}
-
sub pkg2medium {
my ($p, $urpm) = @_;
return if !ref $p;