From 81f94e9378a3a9f6d745ae325cee4adb473d5ed8 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 23 Mar 2001 13:35:57 +0000
Subject: workarount hashes subscript error of perl.

---
 rpmtools.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rpmtools.pm b/rpmtools.pm
index 0194192..691e868 100644
--- a/rpmtools.pm
+++ b/rpmtools.pm
@@ -453,7 +453,8 @@ sub keep_only_cleaned_provides_files {
     my ($params) = @_;
 
     foreach (keys %{$params->{provides}}) {
-	/^\// ? $params->{provides}{$_} = undef : delete $params->{provides}{$_};
+	delete $params->{provides}{$_};
+	/^\// and $params->{provides}{$_} = undef;
     }
 
     #- clean everything else at this point.
-- 
cgit v1.2.1