diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-16 20:11:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-16 20:11:43 +0000 |
| commit | 08152b0d8dc9ac58192b23a74bc3d2f84ea0508c (patch) | |
| tree | c6ec5db8e4bdf148e1a35800820becf3385b0253 | |
| parent | 0eb7dd61ae36bc0a8771399884bbe31d3835dee7 (diff) | |
| download | perl-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
| -rw-r--r-- | URPM/Resolve.pm | 11 |
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") |