From e5d9565d0cff3910002e3a920bd1a527eb2c1f82 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 12 Jan 2009 08:03:00 +0000 Subject: - drop parse_rpms (unused, parse_rpms_build_headers or parse_rpm are used instead) - add a comment --- URPM.pm | 8 ++------ URPM/Build.pm | 18 ------------------ 2 files changed, 2 insertions(+), 24 deletions(-) diff --git a/URPM.pm b/URPM.pm index 194ecfa..afec11a 100644 --- a/URPM.pm +++ b/URPM.pm @@ -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 and the B 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 -- cgit v1.2.1