diff options
Diffstat (limited to 'URPM/Resolve.pm')
-rw-r--r-- | URPM/Resolve.pm | 3 |
1 files changed, 3 insertions, 0 deletions
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 { |