aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-16 20:11:43 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-16 20:11:43 +0000
commit08152b0d8dc9ac58192b23a74bc3d2f84ea0508c (patch)
treec6ec5db8e4bdf148e1a35800820becf3385b0253 /URPM
parent0eb7dd61ae36bc0a8771399884bbe31d3835dee7 (diff)
downloadperl-URPM-08152b0d8dc9ac58192b23a74bc3d2f84ea0508c.tar
perl-URPM-08152b0d8dc9ac58192b23a74bc3d2f84ea0508c.tar.gz
perl-URPM-08152b0d8dc9ac58192b23a74bc3d2f84ea0508c.tar.bz2
perl-URPM-08152b0d8dc9ac58192b23a74bc3d2f84ea0508c.tar.xz
perl-URPM-08152b0d8dc9ac58192b23a74bc3d2f84ea0508c.zip
(property2name,property2name_range,property2name_op_version) enable perl_checker to see how many arguments are expected
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")