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 72f573b8ee1b44e5321f4e654f83ed7275675231..e49c9c61efda3ea14a539375779f9e841d33de01 100755 (executable)
--- 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;