diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-09-21 11:31:09 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-09-21 11:31:09 +0000 |
| commit | 77495898acc1e33dd60e1444a13bf7ee48ef119f (patch) | |
| tree | f71c2d450e239be06dbf4eb9fbab10006a2d765f /Rpmdrake/formatting.pm | |
| parent | 300aee1bb2bf682cb16b646705032cf1505e2a43 (diff) | |
| download | rpmdrake-77495898acc1e33dd60e1444a13bf7ee48ef119f.tar rpmdrake-77495898acc1e33dd60e1444a13bf7ee48ef119f.tar.gz rpmdrake-77495898acc1e33dd60e1444a13bf7ee48ef119f.tar.bz2 rpmdrake-77495898acc1e33dd60e1444a13bf7ee48ef119f.tar.xz rpmdrake-77495898acc1e33dd60e1444a13bf7ee48ef119f.zip | |
(evr) kill it now that it's useless
Diffstat (limited to 'Rpmdrake/formatting.pm')
| -rw-r--r-- | Rpmdrake/formatting.pm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 644c4ad8..9ff8d569 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -36,7 +36,6 @@ our @ISA = qw(Exporter); our @EXPORT = qw( $spacing ensure_utf8 - evr format_changelog_changelogs format_changelog_string format_field @@ -92,13 +91,6 @@ sub my_fullname { "$name-$version-$release"; } -sub evr { - my ($pkg) = @_; - my (undef, $version, $release) = $pkg->fullname; - my $epoch = $pkg->epoch; - $epoch ? "$epoch-$version-$release" : "$version-$release"; -} - sub urpm_name { return '?-?-?.?' unless ref $_[0]; scalar $_[0]->fullname; |