Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
CBuilder	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Command	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Constant	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Liblist	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
MakeMaker	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ParseXS	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Typemaps	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
CBuilder.pm	8.67 KB	-rw-rw-rw-	2020-11-01 16:54
Command.pm	7.63 KB	-rw-rw-rw-	2020-12-21 20:16
Constant.pm	14.7 KB	-rw-rw-rw-	2020-12-18 11:57
Embed.pm	12.45 KB	-rw-rw-rw-	2020-12-18 11:58
Install.pm	39.98 KB	-rw-rw-rw-	2020-12-18 14:42
Installed.pm	14 KB	-rw-rw-rw-	2020-12-18 14:42
Liblist.pm	9.29 KB	-rw-rw-rw-	2020-12-21 20:16
MANIFEST.SKIP	1.17 KB	-rw-rw-rw-	2021-01-16 22:58
MM.pm	2.13 KB	-rw-rw-rw-	2020-12-21 20:16
MM_AIX.pm	1.46 KB	-rw-rw-rw-	2020-12-21 20:16
MM_Any.pm	80.9 KB	-rw-rw-rw-	2020-12-21 20:16
MM_BeOS.pm	1.04 KB	-rw-rw-rw-	2020-12-21 20:16
MM_Cygwin.pm	4.03 KB	-rw-rw-rw-	2020-12-21 20:16
MM_DOS.pm	1.04 KB	-rw-rw-rw-	2020-12-21 20:16
MM_Darwin.pm	1.45 KB	-rw-rw-rw-	2020-12-21 20:16
MM_MacOS.pm	901 B	-rw-rw-rw-	2020-12-21 20:16
MM_NW5.pm	5.35 KB	-rw-rw-rw-	2020-12-21 20:16
MM_OS2.pm	3.15 KB	-rw-rw-rw-	2020-12-21 20:16
MM_OS390.pm	2.22 KB	-rw-rw-rw-	2020-12-21 20:16
MM_QNX.pm	907 B	-rw-rw-rw-	2020-12-21 20:16
MM_UWIN.pm	994 B	-rw-rw-rw-	2020-12-21 20:16
MM_Unix.pm	112.49 KB	-rw-rw-rw-	2020-12-21 20:16
MM_VMS.pm	66.68 KB	-rw-rw-rw-	2020-12-21 20:16
MM_VOS.pm	762 B	-rw-rw-rw-	2020-12-21 20:16
MM_Win32.pm	14.71 KB	-rw-rw-rw-	2020-12-21 20:16
MM_Win95.pm	1.26 KB	-rw-rw-rw-	2020-12-21 20:16
MY.pm	676 B	-rw-rw-rw-	2020-12-21 20:16
MakeMaker.pm	106.77 KB	-rw-rw-rw-	2020-12-21 20:16
Manifest.pm	22.94 KB	-rw-rw-rw-	2021-01-16 22:58
Miniperl.pm	7.5 KB	-rw-rw-rw-	2020-12-18 12:04
Mkbootstrap.pm	3.2 KB	-rw-rw-rw-	2020-12-21 20:16
Mksymlists.pm	10.75 KB	-rw-rw-rw-	2020-12-21 20:16
PL2Bat.pm	5.1 KB	-rw-rw-rw-	2020-07-16 21:20
Packlist.pm	8.34 KB	-rw-rw-rw-	2020-12-18 14:42
ParseXS.pm	65.3 KB	-rw-rw-rw-	2020-12-18 12:04
ParseXS.pod	4.3 KB	-rw-rw-rw-	2020-12-18 11:58
Typemaps.pm	26.26 KB	-rw-rw-rw-	2020-12-18 11:58
testlib.pm	911 B	-rw-rw-rw-	2020-12-21 20:16
typemap	11.05 KB	-rw-rw-rw-	2020-12-18 11:58
xsubpp	4.95 KB	-rw-rw-rw-	2020-12-18 11:58

Rename

package ExtUtils::MM_OS390;

use strict;
use warnings;
our $VERSION = '7.58';
$VERSION =~ tr/_//d;

use ExtUtils::MakeMaker::Config;
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);

=head1 NAME

ExtUtils::MM_OS390 - OS390 specific subclass of ExtUtils::MM_Unix

=head1 SYNOPSIS

Don't use this module directly.
  Use ExtUtils::MM and let it choose.

=head1 DESCRIPTION

This is a subclass of L<ExtUtils::MM_Unix> which contains functionality for
OS390.

Unless otherwise stated it works just like ExtUtils::MM_Unix.

=head2 Overriden methods

=over

=item xs_make_dynamic_lib

Defines the recipes for the C<dynamic_lib> section.

=cut

sub xs_make_dynamic_lib {
    my ($self, $attribs, $object, $to, $todir, $ldfrom, $exportlist, $dlsyms) = @_;
    $exportlist = '' if $exportlist ne '$(EXPORT_LIST)';
    my $armaybe = $self->_xs_armaybe($attribs);
    my @m = sprintf '%s : %s $(MYEXTLIB) %s$(DFSEP).exists %s $(PERL_ARCHIVEDEP) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP) %s'."\n", $to, $object, $todir, $exportlist, ($dlsyms || '');
    my $dlsyms_arg = $self->xs_dlsyms_arg($dlsyms);
    if ($armaybe ne ':'){
        $ldfrom = 'tmp$(LIB_EXT)';
        push(@m,"	\$(ARMAYBE) cr $ldfrom $object\n");
        push(@m,"	\$(RANLIB) $ldfrom\n");
    }

# For example in AIX the shared objects/libraries from previous builds
    # linger quite a while in the shared dynalinker cache even when nobody
    # is using them.  This is painful if one for instance tries to restart
    # a failed build because the link command will fail unnecessarily 'cos
    # the shared object/library is 'busy'.
    push(@m,"	\$(RM_F) \$\@\n");

my $libs = '$(LDLOADLIBS)';

my $ld_run_path_shell = "";
    if ($self->{LD_RUN_PATH} ne "") {
        $ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" ';
    }

push @m, sprintf <<'MAKE', $ld_run_path_shell, $dlsyms_arg, $self->xs_obj_opt('$@'), $ldfrom, $libs, $exportlist;
	%s$(LD) $(LDDLFLAGS) %s $(OTHERLDFLAGS) %s $(MYEXTLIB) %s \
	  $(PERL_ARCHIVE) %s $(PERL_ARCHIVE_AFTER) %s \
	  $(INST_DYNAMIC_FIX)
	$(CHMOD) $(PERM_RWX) $@
MAKE
    join '', @m;
}

=back

=head1 AUTHOR

Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix

=head1 SEE ALSO

L<ExtUtils::MakeMaker>

=cut
__END__