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 / VMS.pm < prev    next >
Text File  |  2005-04-27  |  1KB  |  86 lines
  1. package Module::Build::Platform::VMS;
  2.  
  3. use strict;
  4. use Module::Build::Base;
  5.  
  6. use vars qw(@ISA);
  7. @ISA = qw(Module::Build::Base);
  8.  
  9. sub need_prelink_c { 1 }
  10.  
  11.  
  12. =head1 NAME
  13.  
  14. Module::Build::Platform::VMS - Builder class for VMS platforms
  15.  
  16. =head1 DESCRIPTION
  17.  
  18. This module inherits from C<Module::Build::Base> and alters a few
  19. minor details of its functionality.  Please see L<Module::Build> for
  20. the general docs.
  21.  
  22. =head2 Overridden Methods
  23.  
  24. =over 4
  25.  
  26. =item new
  27.  
  28. Change $self->{build_script} to 'Build.com' so @Build works.
  29.  
  30. =cut
  31.  
  32. sub new {
  33.     my $class = shift;
  34.     my $self = $class->SUPER::new(@_);
  35.  
  36.     $self->{properties}{build_script} = 'Build.com';
  37.  
  38.     return $self;
  39. }
  40.  
  41.  
  42. =item cull_args
  43.  
  44. '@Build foo' on VMS will not preserve the case of 'foo'.  Rather than forcing
  45. people to write '@Build "foo"' we'll dispatch case-insensitively.
  46.  
  47. =cut
  48.  
  49. sub cull_args {
  50.     my $self = shift;
  51.     my($action, $args) = $self->SUPER::cull_args(@_);
  52.     my @possible_actions = grep { lc $_ eq lc $action } $self->known_actions;
  53.  
  54.     die "Ambiguous action '$action'.  Could be one of @possible_actions"
  55.         if @possible_actions > 1;
  56.  
  57.     return ($possible_actions[0], $args);
  58. }
  59.  
  60.  
  61. =item manpage_separator
  62.  
  63. Use '__' instead of '::'.
  64.  
  65. =back
  66.  
  67. =cut
  68.  
  69. sub manpage_separator {
  70.     return '__';
  71. }
  72.  
  73.  
  74. =head1 AUTHOR
  75.  
  76. Michael G Schwern <schwern@pobox.com>, Ken Williams <ken@mathforum.org>
  77.  
  78. =head1 SEE ALSO
  79.  
  80. perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
  81.  
  82. =cut
  83.  
  84. 1;
  85. __END__
  86.