#!/usr/bin/perl

$ENV{'LANG'} = 'C';
sub sixtyfoursort {
     if ($a =~ /64/) {
        return 999999;
     }
     $a cmp $b;
}


my @paths = grep(!/cpan_sandbox/,split(/:/, $ENV{'PATH'}));
foreach my $path (@paths) {
       if (-x $path . '/' . 'gcc') {
           my @LDS = grep(/^\-L/, @ARGV);
           my @NONLDS = grep(!/^\-L/, @ARGV);
           @ARGV = sort sixtyfoursort @LDS;
           push(@ARGV,@NONLDS); 
           print STDERR "gcc-64bit-hack: enabled\n";
           local $ENV{'PATH'} = join(':', @paths);
           exec ($path . '/' . 'gcc',@ARGV);
       }
}
die;