More Perl 5.00503 fixes.

git-svn-id: svn://creme-brulee.marcuscom.com/ports/trunk@3007 df743ca5-7f9a-e211-a948-0013205c9059

1 files changed, 34 insertions, 0 deletions

diff --git a/sysutils/gnomesystemtools/files/patch-backends_replace.pl.in b/sysutils/gnomesystemtools/files/patch-backends_replace.pl.in
new file mode 100644
index 000000000..7f7cce28e
--- /dev/null
+++ b/sysutils/gnomesystemtools/files/patch-backends_replace.pl.in
@@ -0,0 +1,34 @@
+--- backends/replace.pl.in.orig	Fri Oct 22 02:41:56 2004
++++ backends/replace.pl.in	Fri Oct 22 02:42:48 2004
+@@ -1113,19 +1113,19 @@
+ 
+   return -1 if (!&gst_replace_interfaces_iface_stanza_locate ($buff, \$line_no, $iface));
+ 
+-  delete $$buff[$line_no];
++  splice @{$buff},$line_no,1;
+   $line_no ++;
+   
+   while (&gst_replace_interfaces_get_next_option ($buff, \$line_no) != -1)
+   {
+-    delete $$buff[$line_no];
++    splice @{$buff},$line_no,1;
+     $line_no ++;
+   }
+ 
+   $line_no = 0;
+   if (&gst_replace_interfaces_auto_stanza_locate ($buff, \$line_no, $iface))
+   {
+-    delete $$buff[$line_no];
++   splice @{$buff},$line_no,1;
+   }
+   
+   &gst_file_buffer_clean ($buff);
+@@ -1663,7 +1663,7 @@
+         }
+         else
+         {
+-          delete $$buff[$i];
++	  splice @{$buff},$i,1;
+         }
+       }
+     }