develooper Front page | perl.perl5.porters | Postings from October 2003

Re: [david@davidfavor.com: Building ExtUtils-ParseXS-2.05 badly broken]

Thread Previous | Thread Next
From:
Ken Williams
Date:
October 31, 2003 06:00
Subject:
Re: [david@davidfavor.com: Building ExtUtils-ParseXS-2.05 badly broken]
Message ID:
6F81CFB8-0BAA-11D8-9A36-003065F6D85A@mathforum.org

On Friday, October 31, 2003, at 07:30  AM, David Favor wrote:

> I applied your patch and the results appears to be the same:

Oopsie, I messed up the patching.  Try this improved version.

  -Ken

Index: t/basic.t
===================================================================
RCS file: 
/Users/ken/src/CVS-repository/modules/ExtUtils-ParseXS/t/basic.t,v
retrieving revision 1.9
diff -u -r1.9 basic.t
--- basic.t	2003/08/16 22:51:59	1.9
+++ basic.t	2003/10/31 13:57:52
@@ -21,6 +21,7 @@
  my $MSVC  = $Is_MSWin32 && $Config{cc} =~ /cl(\.exe)?$/;
  my $MinGW = $Is_MSWin32 && $Config{cc} =~ /gcc(\.exe)?$/;
  my $Cygwin = $^O eq 'cygwin';
+my $AIX = $^O eq 'aix';

  #########################

@@ -98,6 +99,7 @@
    my $libs      = $Config{libs};
    my $lddlflags = $Config{lddlflags};
    my $ld_out    = '-o ';
+  my $ld        = $Config{ld};

    if ( $Is_MSWin32 or $Cygwin ) {
      require ExtUtils::Mksymlists;
@@ -118,17 +120,20 @@
        (my $libperl = $Config{libperl}) =~ s/^(?:lib)?([^.]+).*$/$1/;
        $libs        = "-l$libperl $libs";
        do_system("dlltool --def $module.def --output-exp $module.exp");
-      do_system("$Config{ld} $lddlflags -Wl,--base-file 
-Wl,$module.base $objs $ld_out$module_lib $libs $module.exp");
+      do_system("$ld $lddlflags -Wl,--base-file -Wl,$module.base $objs 
$ld_out$module_lib $libs $module.exp");
        do_system("dlltool --def $module.def --output-exp $module.exp 
--base-file $module.base");
        $module_def  = "$module.exp";
      } elsif ( $Cygwin ) { # MinGW GCC
        (my $libperl = $Config{libperl}) =~ s/^(?:lib)?([^.]+).*$/$1/;
        $libs        = "-L$Config{archlibexp}/CORE -l$libperl $libs";
-      do_system("$Config{shrpenv} $Config{ld} $lddlflags 
-Wl,--base-file -Wl,$module.base $objs $ld_out$module_lib $libs");
+      do_system("$Config{shrpenv} $ld $lddlflags -Wl,--base-file 
-Wl,$module.base $objs $ld_out$module_lib $libs");
      }
+  } elsif ( $AIX ) {
+    $ld =~ s{\$\(BASEEXT\)} {XSTest}g;
+    $ld =~ s{\$\(PERL_INC\)}{$Config{perl_archlib}/CORE}g;
    }

-  return !do_system("$Config{shrpenv} $Config{ld} $lddlflags $objs 
$ld_out$module_lib $libs $module_def");
+  return !do_system("$Config{shrpenv} $ld $lddlflags $objs 
$ld_out$module_lib $libs $module_def");
  }

  sub do_system {


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About