aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
Diffstat (limited to 'URPM')
-rw-r--r--URPM/Resolve.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index 2ff98a0..40e32a0 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -23,13 +23,18 @@ sub find(&@) {
#- property2name* functions below parse things like "mageia-release[>= 1]"
#- which is the format returned by URPM.xs for ->requires, ->provides, ->conflicts...
sub property2name {
- $_[0] =~ /^([^\s\[]*)/ && $1;
+ my ($property) = @_;
+ $property =~ /^([^\s\[]*)/ && $1;
}
+
sub property2name_range {
- $_[0] =~ /^([^\s\[]*)(?:\[\*\])?\[?([^\s\]]*\s*[^\s\]]*)/;
+ my ($property) = @_;
+ $property =~ /^([^\s\[]*)(?:\[\*\])?\[?([^\s\]]*\s*[^\s\]]*)/;
}
+
sub property2name_op_version {
- $_[0] =~ /^([^\s\[]*)(?:\[\*\])?\s*\[?([^\s\]]*)\s*([^\s\]]*)/;
+ my ($property) = @_;
+ $property =~ /^([^\s\[]*)(?:\[\*\])?\s*\[?([^\s\]]*)\s*([^\s\]]*)/;
}
#- wrappers around $state (cf "The $state object" in "perldoc URPM")