diff options
| -rw-r--r-- | URPM.pm | 8 | ||||
| -rw-r--r-- | URPM/Build.pm | 18 |
2 files changed, 2 insertions, 24 deletions
@@ -174,6 +174,8 @@ sub traverse_tag { $count; } +# wrapper around XS functions +# it handles error cases sub _parse_hdlist_or_synthesis { my ($parse_func, $urpm, $file, %options) = @_; @@ -341,12 +343,6 @@ file and adds them to the URPM object. Allowed options are The return value is a two-element array containing the first and the last id parsed. -=item $urpm->parse_rpms($files, %options) - -This method loads rpm informations from rpm headers and adds them to the URPM -object. The return value is a two-element array containing the first and the -last id parsed. - =item $urpm->parse_rpm($file, %options) This method gets the B<depslist> and the B<provides> from an RPM file diff --git a/URPM/Build.pm b/URPM/Build.pm index f7e639b..bd569de 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -141,24 +141,6 @@ sub parse_headers { defined $id ? ($start, $id) : @{[]}; } -# parse_rpms, same behaviour than parse_{hdlist, synthesis} -# ie: ($start, $end) = parse_*(filestoparse, %options); - -sub parse_rpms { - my ($urpm, $rpms, %options) = @_; - my ($start, $end); - $urpm->parse_rpms_build_headers( - rpms => $rpms, - %options, - callback => sub { - my (undef, $id) = @_; - $start = $id if $start > $id || ! defined($start); - $end = $id if $end < $id || ! defined($end); - } - ) ? ($start, $end) : (); -} - - # DEPRECATED. ONLY USED BY MKCD #- compute dependencies, result in stored in info values of urpm. #- operations are incremental, it is possible to read just one hdlist, compute |