OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl
/
5.26.1
/
ExtUtils
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📁
CBuilder
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
CBuilder.pm
8.69 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Command
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Command.pm
7.62 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Constant
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Constant.pm
14.59 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Embed.pm
12.61 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Install.pm
39.28 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Installed.pm
14.03 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Liblist
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Liblist.pm
9.28 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MANIFEST.SKIP
971 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM.pm
2.09 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_AIX.pm
1.26 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_Any.pm
80.18 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_BeOS.pm
1.02 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_Cygwin.pm
3.99 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_DOS.pm
976 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_Darwin.pm
935 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_MacOS.pm
892 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_NW5.pm
5.26 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_OS2.pm
3.07 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_QNX.pm
894 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_UWIN.pm
981 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_Unix.pm
105.63 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_VMS.pm
66.15 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_VOS.pm
749 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_Win32.pm
14.06 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MM_Win95.pm
1.25 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
MY.pm
678 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📁
MakeMaker
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
MakeMaker.pm
105.01 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Manifest.pm
22.89 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Miniperl.pm
7.41 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Mkbootstrap.pm
3.23 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Mksymlists.pm
10.74 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
Packlist.pm
8.36 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
ParseXS
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
ParseXS.pm
65.01 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
ParseXS.pod
4.3 KB
05/23/2023 05:17:19 PM
rw-r--r--
📁
Typemaps
-
05/09/2024 07:13:15 AM
rwxr-xr-x
📄
Typemaps.pm
26.17 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
testlib.pm
916 bytes
05/23/2023 05:17:19 PM
rw-r--r--
📄
typemap
10.79 KB
05/23/2023 05:17:19 PM
rw-r--r--
📄
xsubpp
4.95 KB
05/23/2023 05:17:19 PM
rw-r--r--
Editing: MM_Cygwin.pm
Close
package ExtUtils::MM_Cygwin; use strict; use ExtUtils::MakeMaker::Config; use File::Spec; require ExtUtils::MM_Unix; require ExtUtils::MM_Win32; our @ISA = qw( ExtUtils::MM_Unix ); our $VERSION = '7.24'; $VERSION = eval $VERSION; =head1 NAME ExtUtils::MM_Cygwin - methods to override UN*X behaviour in ExtUtils::MakeMaker =head1 SYNOPSIS use ExtUtils::MM_Cygwin; # Done internally by ExtUtils::MakeMaker if needed =head1 DESCRIPTION See ExtUtils::MM_Unix for a documentation of the methods provided there. =over 4 =item os_flavor We're Unix and Cygwin. =cut sub os_flavor { return('Unix', 'Cygwin'); } =item cflags if configured for dynamic loading, triggers #define EXT in EXTERN.h =cut sub cflags { my($self,$libperl)=@_; return $self->{CFLAGS} if $self->{CFLAGS}; return '' unless $self->needs_linking(); my $base = $self->SUPER::cflags($libperl); foreach (split /\n/, $base) { /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2; }; $self->{CCFLAGS} .= " -DUSEIMPORTLIB" if ($Config{useshrplib} eq 'true'); return $self->{CFLAGS} = qq{ CCFLAGS = $self->{CCFLAGS} OPTIMIZE = $self->{OPTIMIZE} PERLTYPE = $self->{PERLTYPE} }; } =item replace_manpage_separator replaces strings '::' with '.' in MAN*POD man page names =cut sub replace_manpage_separator { my($self, $man) = @_; $man =~ s{/+}{.}g; return $man; } =item init_linker points to libperl.a =cut sub init_linker { my $self = shift; if ($Config{useshrplib} eq 'true') { my $libperl = '$(PERL_INC)' .'/'. "$Config{libperl}"; if( $] >= 5.006002 ) { $libperl =~ s/(dll\.)?a$/dll.a/; } $self->{PERL_ARCHIVE} = $libperl; } else { $self->{PERL_ARCHIVE} = '$(PERL_INC)' .'/'. ("$Config{libperl}" or "libperl.a"); } $self->{PERL_ARCHIVEDEP} ||= ''; $self->{PERL_ARCHIVE_AFTER} ||= ''; $self->{EXPORT_LIST} ||= ''; } =item maybe_command Determine whether a file is native to Cygwin by checking whether it resides inside the Cygwin installation (using Windows paths). If so, use C<ExtUtils::MM_Unix> to determine if it may be a command. Otherwise use the tests from C<ExtUtils::MM_Win32>. =cut sub maybe_command { my ($self, $file) = @_; my $cygpath = Cygwin::posix_to_win_path('/', 1); my $filepath = Cygwin::posix_to_win_path($file, 1); return (substr($filepath,0,length($cygpath)) eq $cygpath) ? $self->SUPER::maybe_command($file) # Unix : ExtUtils::MM_Win32->maybe_command($file); # Win32 } =item dynamic_lib Use the default to produce the *.dll's. But for new archdir dll's use the same rebase address if the old exists. =cut sub dynamic_lib { my($self, %attribs) = @_; my $s = ExtUtils::MM_Unix::dynamic_lib($self, %attribs); return '' unless $s; return $s unless %{$self->{XS}}; # do an ephemeral rebase so the new DLL fits to the current rebase map $s .= "\t/bin/find \$\(INST_ARCHLIB\)/auto -xdev -name \\*.$self->{DLEXT} | /bin/rebase -sOT -" if (( $Config{myarchname} eq 'i686-cygwin' ) and not ( exists $ENV{CYGPORT_PACKAGE_VERSION} )); $s; } =item install Rebase dll's with the global rebase database after installation. =cut sub install { my($self, %attribs) = @_; my $s = ExtUtils::MM_Unix::install($self, %attribs); return '' unless $s; return $s unless %{$self->{XS}}; my $INSTALLDIRS = $self->{INSTALLDIRS}; my $INSTALLLIB = $self->{"INSTALL". ($INSTALLDIRS eq 'perl' ? 'ARCHLIB' : uc($INSTALLDIRS)."ARCH")}; my $dop = "\$\(DESTDIR\)$INSTALLLIB/auto/"; my $dll = "$dop/$self->{FULLEXT}/$self->{BASEEXT}.$self->{DLEXT}"; $s =~ s|^(pure_install :: pure_\$\(INSTALLDIRS\)_install\n\t)\$\(NOECHO\) \$\(NOOP\)\n|$1\$(CHMOD) \$(PERM_RWX) $dll\n\t/bin/find $dop -xdev -name \\*.$self->{DLEXT} \| /bin/rebase -sOT -\n|m if (( $Config{myarchname} eq 'i686-cygwin') and not ( exists $ENV{CYGPORT_PACKAGE_VERSION} )); $s; } =item all_target Build man pages, too =cut sub all_target { ExtUtils::MM_Unix::all_target(shift); } =back =cut 1;