diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-02-16 06:15:24 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-02-16 06:15:24 +0000 |
commit | 84af202ce156529c02d7f8d0feed032c65d63d9d (patch) | |
tree | 4d885457dfba1687647635cdc8bad8ce0241e17f | |
parent | 11df98ff2cb530b94838807f029d29862549f582 (diff) | |
download | rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.tar rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.tar.gz rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.tar.bz2 rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.tar.xz rpmdrake-84af202ce156529c02d7f8d0feed032c65d63d9d.zip |
spacing
-rw-r--r-- | Rpmdrake/formatting.pm | 4 |
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; |