diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2009-01-08 13:46:19 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2009-01-08 13:46:19 +0000 |
commit | 624daa09dd9d85e62b972d5deccd352c17b7f4ee (patch) | |
tree | c9f84dec3afe05086d636dd0d3aa8ef3ae0c36da | |
parent | 493aa0592123f62a897f6af29e91bce2a6095ed5 (diff) | |
download | perl-URPM-624daa09dd9d85e62b972d5deccd352c17b7f4ee.tar perl-URPM-624daa09dd9d85e62b972d5deccd352c17b7f4ee.tar.gz perl-URPM-624daa09dd9d85e62b972d5deccd352c17b7f4ee.tar.bz2 perl-URPM-624daa09dd9d85e62b972d5deccd352c17b7f4ee.tar.xz perl-URPM-624daa09dd9d85e62b972d5deccd352c17b7f4ee.zip |
make it clear the func is local
-rw-r--r-- | URPM.pm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -174,7 +174,7 @@ sub traverse_tag { $count; } -sub parse_hdlist_or_synthesis { +sub _parse_hdlist_or_synthesis { my ($parse_func, $urpm, $file, %options) = @_; my $previous_indice = @{$urpm->{depslist}}; @@ -194,8 +194,8 @@ sub parse_hdlist_or_synthesis { (); } } -sub parse_synthesis { parse_hdlist_or_synthesis(\&parse_synthesis__XS, @_) } -sub parse_hdlist { parse_hdlist_or_synthesis(\&parse_hdlist__XS, @_) } +sub parse_synthesis { _parse_hdlist_or_synthesis(\&parse_synthesis__XS, @_) } +sub parse_hdlist { _parse_hdlist_or_synthesis(\&parse_hdlist__XS, @_) } sub add_macro { my ($s) = @_; |