home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / cygwin.pm < prev    next >
Text File  |  2005-04-27  |  963b  |  47 lines
  1. package Module::Build::Platform::cygwin;
  2.  
  3. use strict;
  4. use Module::Build::Platform::Unix;
  5.  
  6. use vars qw(@ISA);
  7. @ISA = qw(Module::Build::Platform::Unix);
  8.  
  9. sub link_c {
  10.   my ($self, $to, $file_base) = @_;
  11.   my ($cf, $p) = ($self->{config}, $self->{properties}); # For convenience
  12.   my $flags = $p->{extra_linker_flags};
  13.   local $p->{extra_linker_flags} = ['-L'.File::Spec->catdir($cf->{archlibexp}, 'CORE'),
  14.                     '-lperl',
  15.                     ref $flags ? @$flags : $self->split_like_shell($flags)];
  16.   return $self->SUPER::link_c($to, $file_base);
  17. }
  18.  
  19. sub manpage_separator {
  20.    '.'
  21. }
  22.  
  23. 1;
  24. __END__
  25.  
  26.  
  27. =head1 NAME
  28.  
  29. Module::Build::Platform::cygwin - Builder class for Cygwin platform
  30.  
  31. =head1 DESCRIPTION
  32.  
  33. This module provides some routines very specific to the cygwin
  34. platform.
  35.  
  36. Please see the L<Module::Build> for the general docs.
  37.  
  38. =head1 AUTHOR
  39.  
  40. Initial stub by Yitzchak Scott-Thoennes, sthoenna@efn.org
  41.  
  42. =head1 SEE ALSO
  43.  
  44. perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
  45.  
  46. =cut
  47.