From 552c8db48d48fd34cb59770d3f689bf4f1aefc22 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 10 Apr 2002 14:33:21 +0000
Subject: compatible with perl 5.005 and above.

---
 rpmtools.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'rpmtools.pm')

diff --git a/rpmtools.pm b/rpmtools.pm
index c65d300..f320a6f 100644
--- a/rpmtools.pm
+++ b/rpmtools.pm
@@ -198,11 +198,15 @@ sub build_hdlist {
     open B, "| $ENV{LD_LOADER} packdrake -b${ratio}ds '$hdlist' '$dir' 400000";
     foreach (@{$params->{depslist}}) {
 	if (my $keys = delete $names{$_->{name}}) {
-	    print B "$_\n" foreach @$keys;
+	    foreach (@$keys) {
+		print B "$_\n";
+	    }
 	}
     }
     foreach (values %names) {
-	print B "$_\n" foreach @$_;
+	foreach (@$_) {
+	    print B "$_\n";
+	}
     }
     close B or die "packdrake failed\n";
 
@@ -555,7 +559,9 @@ sub read_provides {
     while (<$FILE>) {
 	chomp;
 	my ($k, @v) = split '@';
-	$params->{provides}{$k}{$_} = undef foreach @v;
+	foreach (@v) {
+	    $params->{provides}{$k}{$_} = undef;
+	}
     }
 }
 
-- 
cgit v1.2.1