add bindings and test case to load hdlist files like the python bindings

CVS patchset: 6965
CVS date: 2003/12/08 21:36:50

1 files changed, 20 insertions, 1 deletions

diff --git a/perl-RPM2/RPM2.pm b/perl-RPM2/RPM2.pm
index 76bbd734f..282dbdc8e 100644
--- a/perl-RPM2/RPM2.pm
+++ b/perl-RPM2/RPM2.pm
@@ -9,7 +9,7 @@ use File::Basename;
 use File::Spec;
 
 use vars qw/$VERSION/;
-$VERSION = '0.63';
+$VERSION = '0.64';
 use vars qw/@ISA/;
 @ISA = qw/DynaLoader/;
 
@@ -51,6 +51,25 @@ sub open_rpm_db {
   return $self;
 }
 
+sub open_hdlist {
+  my $class = shift;
+  my $file = shift;
+
+  open FH, "<$file"
+    or die "Can't open $file: $!";
+
+  my @ret;
+  while (1) {
+    my ($hdr) = RPM2::_read_from_file(*FH);
+    last unless $hdr;
+
+    push @ret, RPM2::Header->_new_raw($hdr);
+  }
+
+  close FH;
+  return @ret;
+}
+
 sub open_package {
   my $class = shift;
   my $file = shift;