From ed4a12a812ed154f747dac6d1a9601df1ee5298f Mon Sep 17 00:00:00 2001
From: Herb Lewis <herb@samba.org>
Date: Fri, 6 Jun 2003 22:51:28 +0000
Subject: [PATCH] make this work for older version of perl

---
 packaging/SGI/idb.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.11.4.GIT