#! /usr/bin/perl

$libdir=shift(@ARGV);

print "libdir is $libdir\n";
print "params are ", @ARGV, "\n";

for $f (@ARGV) {
    open FILEIN, "$f" or die;
    open FILEOUT, ">$f.tmp" or die;
    while(<FILEIN>) {
	s!^(\s*)my \$libdir\s*=.*$!$1my \$libdir = \'$libdir\';!;
	print FILEOUT $_;
    } 
    close FILEIN or die;
    close FILEOUT or die;
    rename ("$f.tmp", "$f") or die;
}
