From 6deece83dc9b115fb340b0b8173526602a7dd86d Mon Sep 17 00:00:00 2001
From: Andrew Tridgell <tridge@samba.org>
Date: Tue, 16 Dec 2003 03:21:34 +0000
Subject: don't rely on the ability of perl 5.6.x to remove elements from
 arrays using delete(). This makes pidl portable back to perl 5.0. (This used
 to be commit 9175293535246f55f50f52501ec451c951a94eb1)

---
 source4/build/pidl/util.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'source4/build/pidl')

diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm
index 8331e115d3..b732c185b2 100644
--- a/source4/build/pidl/util.pm
+++ b/source4/build/pidl/util.pm
@@ -68,7 +68,10 @@ sub CleanData($)
     if (ref($v) eq "ARRAY") {
 	foreach my $i (0 .. $#{$v}) {
 	    CleanData($v->[$i]);
-	    if (ref($v->[$i]) eq "ARRAY" && $#{$v->[$i]}==-1) { delete($v->[$i]); next; }
+	    if (ref($v->[$i]) eq "ARRAY" && $#{$v->[$i]}==-1) { 
+		    $v->[$i] = undef; 
+		    next; 
+	    }
 	}
 	# this removes any undefined elements from the array
 	@{$v} = grep { defined $_ } @{$v};
-- 
cgit