From 93867b77735c3d729793cf10fd3bed43022e6e06 Mon Sep 17 00:00:00 2001
From: Herb Lewis <herb@samba.org>
Date: Fri, 6 Jun 2003 22:51:28 +0000
Subject: make this work for older version of perl (This used to be commit
 ed4a12a812ed154f747dac6d1a9601df1ee5298f)

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

(limited to 'packaging/SGI')

diff --git a/packaging/SGI/idb.pl b/packaging/SGI/idb.pl
index 72f573b8ee..e49c9c61ef 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;
-- 
cgit