bin/fix-libpth-for-gcc463.pl

   1 #!/usr/bin/perl
   2
   3 # use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 =head1 NAME
   8
   9
  10
  11 =head1 SYNOPSIS
  12
  13
  14
  15 =head1 OPTIONS
  16
  17 =over 8
  18
  19 =cut
  20
  21 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  22
  23 =item B<--help|h!>
  24
  25 This help
  26
  27 =back
  28
  29 =head1 DESCRIPTION
  30
  31
  32
  33 =cut
  34
  35
  36 use FindBin;
  37 use lib "$FindBin::Bin/../lib";
  38 BEGIN {
  39     push @INC, qw(       );
  40 }
  41
  42 use Dumpvalue;
  43 use File::Basename qw(dirname);
  44 use File::Path qw(mkpath);
  45 use File::Spec;
  46 use File::Temp;
  47 use Getopt::Long;
  48 use Hash::Util qw(lock_keys);
  49
  50 our %Opt;
  51 lock_keys %Opt, map { /([^=]+)/ } @opt;
  52 GetOptions(\%Opt,
  53            @opt,
  54           ) or pod2usage(1);
  55
  56 use Config;
  57 use POSIX ();
  58 my $date = POSIX::strftime "%FT%T", localtime;
  59 if ($Config{gccversion} eq "4.4.5") {
  60     my $configpm = $INC{"Config.pm"} or die;
  61     open my $fh, $configpm or die;
  62     open my $fh2, ">", "$configpm.new" or die;
  63     while (<$fh>) {
  64         if (/^(\s+libpth => )'[^']+',$/) {
  65             print $fh2 "$1'/usr/local/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib /usr/lib /lib64 /usr/lib64',\n";
  66         } else {
  67             print $fh2 $_;
  68         }
  69     }
  70     chmod 0644, $configpm or die;
  71     rename $configpm, "$configpm-$date" or die;
  72     rename "$configpm.new", $configpm or die;
  73     chmod 0444, $configpm or die;
  74 } else {
  75     warn "Nothing to do, gccversion is '$Config{gccversion}'";
  76 }
  77
  78 # Local Variables:
  79 # mode: cperl
  80 # cperl-indent-level: 4
  81 # End: