From: Herb Lewis <herb@samba.org>
Date: Fri, 6 Jun 2003 22:51:28 +0000 (+0000)
Subject: make this work for older version of perl
X-Git-Tag: samba-4.0.0alpha6~801^2~13594
X-Git-Url: http://git.samba.org/samba.git/?p=gd%2Fsamba-autobuild%2F.git;a=commitdiff_plain;h=93867b77735c3d729793cf10fd3bed43022e6e06

make this work for older version of perl
(This used to be commit ed4a12a812ed154f747dac6d1a9601df1ee5298f)
---

diff --git a/packaging/SGI/idb.pl b/packaging/SGI/idb.pl
index 72f573b8ee1..e49c9c61efd 100755
--- a/packaging/SGI/idb.pl
+++ b/packaging/SGI/idb.pl
@@ -368,7 +368,7 @@ sub get_line {
     $_ = <MAKEFILE>;
     chomp;
     s/^\s*/ /;
-    substr($line,$cont,1,$_);
+    substr($line,$cont,1) = $_;
   }
   $line =~ s/\$\(EXEEXT\)/$EXEEXT/g;
   $line =~ s/\$\(srcdir\)/$srcdir/g;