diff options
| author | Per Øyvind Karlsen <peroyvind@mandriva.org> | 2011-05-31 19:34:31 +0000 |
|---|---|---|
| committer | Per Øyvind Karlsen <peroyvind@mandriva.org> | 2011-05-31 19:34:31 +0000 |
| commit | 314799538f9ee641aae07faf1f1add5945497ac8 (patch) | |
| tree | 0dcdda503d75e5b917dbe61d2867b80390e919b7 | |
| parent | 4d8b4509be2656cefe8731b1ce7d3baf5ef28fef (diff) | |
| download | perl-URPM-314799538f9ee641aae07faf1f1add5945497ac8.tar perl-URPM-314799538f9ee641aae07faf1f1add5945497ac8.tar.gz perl-URPM-314799538f9ee641aae07faf1f1add5945497ac8.tar.bz2 perl-URPM-314799538f9ee641aae07faf1f1add5945497ac8.tar.xz perl-URPM-314799538f9ee641aae07faf1f1add5945497ac8.zip | |
add URPM::Resolve::fullname_parts() as a function parsing fullname with a regex assisted by provided disttag & distepoch
| -rw-r--r-- | NEWS | 5 | ||||
| -rw-r--r-- | URPM.pm | 2 | ||||
| -rw-r--r-- | URPM/Resolve.pm | 3 |
3 files changed, 9 insertions, 1 deletions
@@ -1,3 +1,8 @@ +Version 4.33 - 31 May 2011, by Per Øyvind Karlsen + +- add URPM::Resolve::fullname_parts() as a function parsing fullname with a + regex assisted by provided disttag & distepoch + Version 4.32 - 31 May 2011, by Per Øyvind Karlsen - *really* fix URPM::Package->sourcerpm @@ -11,7 +11,7 @@ use URPM::Resolve; use URPM::Signature; our @ISA = qw(DynaLoader); -our $VERSION = '4.32'; +our $VERSION = '4.33'; URPM->bootstrap($VERSION); diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index 7c6fed8..4df9505 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -30,6 +30,9 @@ sub property2name_range { sub property2name_op_version { $_[0] =~ /^([^\s\[]*)(?:\[\*\])?\s*\[?([^\s\]]*)\s*([^\s\]]*)/; } +sub fullname_parts { + $_[1] =~ sprintf(qr/^(.*)-([^\-]*)-([^\-]*)%s\.([^\.\-]*)$/, (exists $_[0]{disttag} ? "-" . $_[0]{disttag} . (exists $_[0]{distepoch} ? $_[0]{distepoch} : "" ) : "")); +} #- wrappers around $state (cf "The $state object" in "perldoc URPM") sub packages_to_remove { |