#!/usr/bin/perl
# This edits a line in the Makefile to get around  a bug in perl 5.004
$infile = 'Makefile';
$outfile = 'Makefile.new';

open IH,"<$infile" or die "Can't open $infile";
open OH,">$outfile" or die "Can't open $outfile";
while ($line = <IH> ) {
    if ($line =~ /^XSUBPPARGS/) {
	print OH "XSUBPPARGS = -typemap \$(XSUBPPDIR)/typemap -typemap typemap -nolinenumbers\n";
    }
    else {
	print OH $line;
    }
}

system "mv Makefile.new Makefile";
