diff options
Diffstat (limited to 'Rpmdrake/formatting.pm')
-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; |